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EXECUTIVE  SUMMARY 


Advanced  civilian  and  defense  space  missions  require  substantially  larger  and  more  stable 
structures  to  support  higher  resolution  interferometric  optical  benches,  optical  mirrors, 
microwave  frequency  reflectors,  as  well  as  other  high  performance  space  based  applications. 
Some  of  these  applications  demand  structure  dimensional  stability  that  is  well  beyond  the 
capabilities  of  existing  technology.  Thermal  expansion  and  degradation  of  properties  due  to 
damage  are  two  of  the  most  problematic  sources  for  loss  of  dimensional  precision  in  space 
structures.  Graphite  fiber  reinforced  polymers  have  emerged  as  one  of  the  best  materials  for 
dimensionally  stable  space  structures.  This  is  due  to  their  combination  of  high  stiffness,  high 
strength,  low  density  and  adjustable  properties;  including  CTE.  In  fact,  due  to  the  slight  negative 
axial  CTE  of  the  fibers  it  is  possible  to  design  laminates  with  theoretical  zero  CTE  in  the  plane  of 
the  laminate.  The  out  of  plane  CTE  is  still  large  and  problematic.  Also,  the  “theoretical”  zero 
CTE  is  only  approximated  as  well  as  the  manufacturing  precision  allows.  That  is,  deviations  in 
fiber  volume  fraction,  fiber  angles,  constituent  properties,  as  well  as  temperature  dependence  of 
properties  all  contribute  to  real  parts  having  some  finite  CTE.  Using  current  technology  the 
general  approach  to  precision  structure  fabrication  is;  use  precision  fabrication  technology  to 
fabricate  parts  for  an  assembly,  test  each  part  for  CTE,  reject  parts  with  unacceptable  CTE, 
assemble  the  structure  and  use  numerical  models  to  predict  the  assembly  performance  in  the 
expected  environment.  Joining  technology  is  a  huge  issue  with  this  approach  as  adhesives,  joint 
materials,  and  joint  geometric  effects  can  be  the  dominant  contributors  to  dimensional  instability. 


This  project  addressed  the  issue  of  dimensional  instability  from  two  perspectives.  The  primary 
objective  was  to  develop  and  test  a  composite  space  structure  design  modification  strategy  based 
on  intentional  defects  to  achieve  a  “sum  of  the  defects  equals  zero”  result.  That  is,  small 
material  additions  referred  to  as  “anti-distortion  appliques”  were  considered  as  modifications  to 
the  structures  thermomechanical  behavior  with  the  goal  of  eliminating  unwanted  thermal 
deformations  and  thus  improving  the  structures  dimensional  stability.  A  composite  T-joint 
structure  was  selected  as  a  demonstration  problem.  A  finite  element  model  was  developed  to 
characterize  the  structure’s  thermomechanical  properties.  Initially  some  assumed  thermal 
distortions  were  shown  to  be  reduced  by  trial  and  error  positioning  of  anti-distortion  appliques. 
Subsequently,  optimization  software  was  employed  to  automatically  adjust  applique  design 
parameters  so  as  to  minimize  an  objective  function  based  on  distortional  displacements  in  the 
structure.  It  was  found  that  an  effective  and  practical  approach  was  to  introduce  a  small  number 
of  appliques  and  simply  set  there  location  coordinates  as  design  parameters.  Reductions  of  about 
90%  in  the  objective  function  were  realized.  Finally,  the  T-joint  structure  was  fabricated  for 
testing  by  Alliant  Techsystems  Corporation.  The  T-joint  was  modified  to  include  an  adhesively 
bonded  sheet  of  titanium  foil  that  would  induce  measurable  distortions  of  the  vertical  web  on  the 
T-joint.  Photogrammetry  was  used  to  measure  displacements  at  target  points  on  the  vertical  web 
during  a  230  °C  temperature  change.  The  finite  element  model  combined  with  the  a  program 
written  to  drive  the  optimization  software  was  used  to  optimize  the  location  of  two  appliques  to 
minimize  the  out  of  plane  distortions  of  the  vertical  web  at  the  target  points.  The  computer  code 
to  generate  these  models  is  listed  in  Appendix  C.  The  optimization  predicted  a  61%  reduction  in 
the  objective  function.  The  relatively  poor  improvement  was  blamed  in  part  on  the  limited 
precision  of  the  photogrammetry  equipment.  Two  aluminum  appliques  were  bonded  to  the 
vertical  web  in  optimized  positions.  However  the  test  to  measure  reduction  in  distortion  was  not 
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finished  before  the  end  of  the  project  due  to  low  priority  of  scheduling  in  the  environmental 
chamber. 

The  anti-distortion  appliques  methodology  was  demonstrated  and  shown  to  have  theoretical 
potential  for  order  of  magnitude  improvement  in  dimensional  stability  in  thennal  environments. 
However,  the  modeling  is  computationally  expensive  and  large  structures  would  require 
significant  computational  resources.  Also,  there  seems  to  be  no  presently  available  experimental 
techniques  for  precision  measurement  of  structure  distortional  displacements.  Since  the  present 
approach  requires  such  measurements  it  will  have  limited  applicability  until  better  measurement 
technology  is  developed. 

Another  issue  with  polymer  composites  is  the  susceptibility  of  the  polymer  to  damage.  Even 
though  the  damage  may  be  insignificant  to  structural  integrity,  the  small  changes  in  effective 
composite  properties  can  lead  to  dimensional  instability.  In  the  cryogenic  environment  of  space 
polymers  become  susceptible  to  microcracking  due  to  the  large  internal  stresses  that  develop  due 
to  temperature  change.  A  study  was  conducted  on  the  effects  of  matrix  cracking  on  effective 
lamina  properties.  A  literature  review  [Akula  and  Gamich  (2007a, b)]  assessed  to  the  various 
models  available  for  simulating  degraded  properties.  Most  all  of  these  were  found  to  be  directed 
at  progressive  failure  analysis  and  lacked  the  fidelity  needed  to  be  useful  for  dimensional 
stability  studies.  Hence,  a  modeling  effort  was  directed  at  predicting  effective  residual 
thermomechanical  properties  for  two  types  of  matrix  cracking.  The  details  of  this  effort  were 
documented  by  Akula  (2007).  Both  types  of  cracks  were  assumed  transverse  to  the  lamina;  one 
perpendicular  to  the  fibers  and  the  other  parallel  to  the  fibers.  Periodicity  of  cracking  was 
assumed  and  unit  cells  were  modeled  using  the  finite  element  method.  Computer  code  to 
generate  these  models  is  listed  in  Appendix  A  and  Appendix  B.  Comparison  with  data  in  the 
literature  indicates  the  models  do  an  excellent  job  of  predicting  residual  properties.  Cases  of 
poor  agreement  were  consistently  where  the  experiments  were  attempting  to  measure  extremely 
small  changes  in  stiffness.  The  models  also  exposed  several  subtle  dependencies  of  the  residual 
properties  on  adjacent  undamaged  ply  parameters.  This  was  explained  by  the  observation  that 
reduced  effective  properties  are  a  function  of  crack  opening  behavior  and  the  constraining  effect 
of  adjacent  plies  to  limit  that  deformation  is  dependent  on  the  adjacent  ply  properties. 

Finally,  with  the  perspective  of  efficient  future  modeling  of  composite  structures  from  a  more 
fundamental  basis,  an  approach  was  developed  to  detennine  effective  constituent  properties 
based  on  the  degraded  lamina  properties.  Details  of  this  study  were  documented  by  Akula  and 
Gamich  (2007c).  A  significant  finding  was  that  for  matrix  ply  cracking  both  the  fiber  and  matrix 
properties  must  be  degraded  to  achieve  effective  lamina  properties  that  were  consistent  with  the 
average  behavior  predicted  by  the  finite  element  unit  cell  model. 
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1.0  INTRODUCTION 


The  technical  challenge  of  precision  space  structures  is  to  establish  and  maintain  the  geometric 
precision  of  equipment  that  relies  on  precise  geometry  for  operational  performance. 

Dimensional  instabilities  can  be  static  or  dynamic.  The  primary  focus  of  this  project  was  the 
static  instability  associated  with  thermal  strains  and  the  most  common  material  damage  mode; 
matrix  cracking.  However,  the  project  was  also  intended  to  examine  alternate  materials  in  the 
form  of  nano-reinforced  resins  and  adhesives  that  may  offer  properties  that  can  enhance  the 
dimensional  stability  of  composite  structures. 

Thermal  instabilities  occur  as  a  result  of  either  gradients  in  material  properties  in  concert  with  a 
uniform  temperature  change,  gradients  in  temperature  in  concert  with  nonzero  thermal  expansion 
properties,  or  combinations  of  both.  Therefore,  a  material  with  a  unifonn  zero  coefficient  of 
thennal  expansion  (CTE)  would  eliminate  both  sources  of  thennal  instability.  The  ultimate 
minimization  of  thermal  instabilities  would  come  from  a  combination  of  materials  and  design 
methodology  that  would  enable  the  extremely  fine  control  of  the  thermal  deformation  behavior 
in  mass  efficient  composite  structures. 

Closely  related  to  CTE  effects  are  effects  of  the  coefficient  of  moisture  expansion  (CME). 
Moisture  absorbed  or  desorbed  from  polymers  causes  expansion  or  contraction  behavior  that  has 
adverse  effects  on  the  dimensional  stability  of  composites  [Prunty  (1978)].  Off-gassing  of 
residual  resin  volatiles  can  have  a  similar  effect.  In  the  space  vacuum,  desorption  is  generally 
the  source  of  dimensional  instability.  Issues  associated  with  CME  were  not  directly  addressed 
by  this  project.  However,  due  to  the  similarities  of  CME  and  CTE  effects,  technologies  for 
reducing  CTE  effects  have  applicability  for  reducing  CME  effects. 

Perhaps  the  single  greatest  advance  in  the  technology  of  dimensionally  stable  space  structures 
was  the  design  of  graphite  fiber  composite  laminates  that  achieve  a  nominally  zero  CTE.  With 
the  use  of  sufficiently  high  modulus  graphite  fibers  and  proper  laminate  design,  the  “zero”  CTE 
can  be  unidirectional  or  isotropic  in  the  plane  of  the  laminate.  The  CTE  of  the  fiber,  matrix,  and 
individual  lamina  effectively  interact  so  that  a  theoretical  CTE  of  zero  is  possible.  In  practice, 
CTE  less  than  1  ppm/°C  are  routine  and  can  be  controlled  to  less  than  0. 1  ppm/°C.  The 
transverse,  or  through  thickness  CTE  remains  large  (~20  ppm/°C)  and  is  problematic  in  complex 
structures  where  its  effects  are  generally  unavoidable.  This  basic  technology  was  developed  and 
applied  to  a  number  of  space  structures  in  the  1970s  [e.g.  Prunty  (1978)].  Since  then,  only 
incremental  improvements  have  been  made  in  space  structure  thennal  stability. 

In  some  cases  where  difficult  stability  criteria  are  to  be  met,  a  brute  force  approach  is  employed. 
That  is,  multiples  of  each  of  the  structure  components  or  subassemblies  is  fabricated  so  that 
through  individual  testing  the  best  of  the  batch  (e.g.  lowest  CTE)  can  be  selected  for  use  in  the 
structure.  For  example,  Maji  et  al.  (2001),  who  designed  a  spider  truss  support  structure  for  a 
system  of  minors  in  an  optical  telescope,  found  that  their  pultruded  graphite-epoxy  truss 
members  had  a  CTE  that  ranged  from  about  0.1  to  0.3  ppm/°C.  They  attributed  the  scatter  to 
statistical  variations  in  fiber  misalignment  and  fiber  volume  fraction.  Though  effective,  this 
method  of  testing  and  selecting  only  the  best  parts  is  clearly  wasteful,  and  does  nothing  to 
address  the  problems  associated  with  subsequent  joining. 
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Dodson  and  Rule  (1989)  discussed  a  few  important  factors  affecting  thermal  stability  of  space 
flight  optical  benches.  Their  analysis  of  graphite/epoxy  benches  has  indicated  the  selection  of 
core  types  in  sandwich  structures,  typical  joint  configurations,  adhesive  effects  and  moisture 
effects  are  all  important  considerations  in  design.  Shin  et  al.  (2001)  have  analyzed  the  thermal 
distortion  of  an  orbiting  solar  array  including  composite  material  degradation  effects.  It  was 
observed  in  their  study  that  the  strength,  stiffness  and  CTEs  of  graphite/epoxy  composite 
materials  after  exposure  to  simulated  low  earth  orbit  environments  decreased  in  proportion  to 
increasing  thermal  cycles.  It  was  also  found  that  the  solar  arrays  with  composite  face  sheets  were 
advantageous  in  view  of  weight  savings,  temperature  distribution  and  thermal  distortion  when 
compared  to  those  with  aluminum  face  sheets.  In  a  discussion  on  the  design  of  composite 
surrogate  mirror  support  structure,  Maji  et  al.  (2001)  analyzed  the  mirror  surface  figure  errors 
caused  by  temperature  fluctuation  and  suggested  a  design  to  be  a  good  one  if  it  achieves  the  best 
balance  between  mass,  dynamic  properties  and  thermal  deformation. 

To  minimize  the  thermal  deformation,  it  is  generally  accepted  that  materials  with  minimum  CTE 
should  be  used.  As  early  as  late  1970s,  Prunty  (1978)  discussed  several  types  of  dimensionally 
stable  graphite  composites  for  spacecraft  structures.  He  suggested  that  the  adoption  of 
composites  for  planned  spacecraft  structures  can  achieve  significant  benefits  in  stiffness-critical 
and  strength-critical  applications  and  can  be  a  virtual  necessity  where  extreme  dimensional 
stability  is  required. 

Compared  with  several  decades  ago,  there  are  now  a  lot  more  applications  for  advanced 
composite  materials.  Composites  with  a  near  zero  CTE  can  meet  stringent  dimensional 
requirements.  Among  various  composite  materials,  graphite  fiber  laminated  composites  have 
been  the  primary  material  for  precision  space  structures  due  to  their  high  structural  mass 
efficiency  and  capability  for  theoretical  zero  in  plane  coefficient  of  thennal  expansion.  Graphite 
fiber  reinforced  polymers  (GFRP)  with  high  specific  strengths,  moduli,  and  design  flexibility  are 
widely  developed  and  used  as  structural  materials  of  modern  aircraft  and  spacecraft.  Through 
proper  design,  it  is  not  only  possible  to  have  near  zero  CTE,  but  also  to  design  the  CTE  of  the 
composite  to  match  that  of  other  system  components  to  minimize  thermal  mismatch  and  the 
resulting  thermal  distortions. 

Grimaldi  et  al.  (1989)  have  discussed  several  types  of  composite  materials  in  designing  satellite 
antenna  structures.  All  the  composite  materials  used  for  antenna  structures  share  the  need  for 
high  strength  and  low  CTE.  Ishikawa  et  al.  (1989)  have  analyzed  the  thermal  behavior  of 
graphite-epoxy  laminates  with  almost  null  coefficients  of  thennal  expansion  under  a  wide  range 
of  temperature.  They  proposed  a  lamination  tailoring  technique  to  control  the  CTEs  of  graphite- 
epoxy  composites.  This  technique  consists  of  two  concepts  of  the  thermoelastic  invariants  and 
the  lamination  parameters.  More  recently,  Bansemir  and  Haider  (1998)  have  reviewed  the 
development  of  fiber  composite  structures  for  space  applications.  They  argue  that  improvement 
of  materials  evaluation  methods  and  analysis  techniques  can  be  applied  for  optimal  tradeoffs 
between  properties  such  as  CTE,  elastic  modulus  and  thermal  conductivity  in  fiber-reinforced 
composites. 
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In  some  applications  uniform  temperature  changes  may  not  cause  problems  since  the  associated 
uniform  thermal  expansion  may  cause  little  or  no  distortion.  However,  spatial  temperature 
gradients  may  cause  serious  distortions.  In  these  cases  materials  with  high  thennal  conductivity 
that  minimized  temperature  gradients  are  advantageous.  The  combination  of  low  CTE  (a)  and 
high  thermal  conductivity  (K)  is  best,  and  the  ratio  (a/K)  is  a  useful  measure  of  material 
performance  in  this  regard. 

Unique  to  this  project  was  the  parallel  modeling  and  experimental  efforts  largely  facilitated  by 
the  experimental  contributions  of  industry  partner  ATK.  The  modeling  had  two  focuses.  The 
first,  explained  below  was  a  global  structure  modeling  effort  aimed  at  reducing  structure 
instability  behavior  after  fabrication.  The  second  studied  material  behavior  from  a 
microstructure  perspective  considering  microdamage  (microcracks)  and  nanocomposite 
structure-property  relationships  [e.g.  Fertig  and  Garnich  (2004)]. 

Form  a  structure  modeling  perspective,  previous  research  in  design  of  structures  to  achieve 
higher  levels  of  dimensional  stability  have  taken  a  completely  different  approach  than  was  taken 
in  this  project.  Most  previous  work  has  been  performed  from  a  local  perspective  where  initial 
design  and  fabrication  flaws  were  identified  and  attempts  are  made  to  minimize  them.  That  is, 
the  location  of  problematic  defonnation,  or  issues  of  laminate  design,  are  isolated  and  the 
designer  attempts  to  devise  a  strategy  to  reduce  or  eliminate  that  local  source  [e.g.  Dodson  and 
Rule  (1989),  Yoon  and  Kim  (2001),  Bansemir  and  Haider  (1998),  Farmer  et  al.  (1992)].  For 
example,  the  anisotropic  CTE  causes  an  angle  change  in  curved  laminates  during  a  temperature 
change  [Yoon  and  Kim  (2001)]. 

In  comparison,  the  approach  developed  here  was  to  design  from  a  global  perspective  while 
employing  cost  effective  local  strategies  associated  with  current  practice.  The  global  approach 
reduces  the  thermal  instabilities  after  initial  fabrication  and  assembly.  This  was  demonstrated 
through  a  combination  of  experiments  and  modeling.  The  experiments  characterized  the  nature 
of  overall  thermal  deformations  and  the  models  devise  a  set  of  “anti-distortion  appliques”  that 
create  offsetting  thermal  defonnations.  In  effect,  this  creates  offsetting  forces  within  the 
structure  in  much  the  same  way  that  the  constituent  materials  and  lamina  do  at  the  local  material 
scales  when  designed  for  a  net  CTE  of  zero.  A  clear  advantage  of  this  approach  is  that 
adjustments  can  be  made  after  initial  fabrication  so  that  success  in  meeting  CTE  requirements  is 
not  reliant  on  the  initial  perfection  in  materials  and  construction.  The  significant  disadvantage  is 
that  it  requires  experimental  defonnation  measurement  technology  that  matches  the  performance 
objectives.  For  high  precision  structures  such  measurement  technology  is  not  yet  available. 

The  mechanical  and  thennal  properties  of  composite  materials  can  be  designed  through 
micromechanical  analysis.  The  required  properties  of  materials  can  be  achieved  by  controlling 
their  texture  at  microscopic  scales,  by  controlling  the  ply  orientation,  modifying  the  volume 
fraction  of  fibers,  etc.  For  example,  Fertig  and  Garnich  (2004)  have  studied  the  influence  of 
constituent  properties  and  microstructural  parameters  on  the  tensile  modulus  of  a  polymer/clay 
nanocomposite.  Nanocomposites  have  potential  as  matrix  materials  in  more  conventional  micron 
scale  composites.  They  proposed  a  multi-scale  model  to  estimate  the  relative  influence  of 
constituent  properties  on  the  anisotropic  tensile  modulus.  The  model  can  be  extended  to  predict 
the  influence  of  components  on  the  thennal  properties  of  materials.  Garnich  and  Karami  (2004) 
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and  Karami  and  Garnich  (2005b)  have  studied  the  mechanical  properties  and  thermoelastic 
behavior  of  wavy  fiber  composites.  Their  results  show  that  the  waviness  has  effects  on  both 
material  stiffness  properties  and  the  coefficients  of  thermal  expansion. 

A  significant  portion  of  this  project  was  directed  at  better  understanding  the  relationship  between 
microstructure  and  macroscopic  thermo-mechanical  properties.  In  particular,  effort  was  focused 
on  better  understanding  how  the  most  common  matrix  damage  modes  affect  properties.  Two 
types  of  matrix  cracks  were  studied  using  micromechanics/unit  cell  models  to  better  understand 
how  the  effective  properties  of  a  laminate  embedded  lamina  are  modified  by  such  damage.  Kim 
et  al.  (2000)  have  shown  that  crack  density  in  a  cross-ply  laminate  can  have  a  significant  effect 
on  the  CTE  and  the  variation  in  CTE  due  to  ply  cracking  can  be  quantitatively  predicted  whether 
due  to  mechanical  loading  or  thennal  cycling.  Also,  a  review  of  the  literature  was  conducted  to 
survey  methods  used  to  model  the  residual  properties  of  damaged  laminae. 

In  summary,  this  project  relates  to  the  current  state  of  knowledge  as  follows.  The  project  was 
centered  on  GFRP,  the  most  effective  and  widely  used  material  for  dimensionally  stable  space 
structures.  Alternative  materials  were  considered  only  from  the  standpoint  of  engineered 
polymers  and  their  multi-functionality  either  as  enhanced  adhesives  or  enhanced  matrix 
materials.  Material  damage  characterization  through  micromechanics  modeling  for  modes  of 
matrix  cracking  was  also  conducted.  Unlike  prior  efforts,  the  project  was  not  be  restricted  to 
limited  local  (e.g.  joints)  perspective  of  performance  improvement  but  also  developed  a  global 
design  modification  strategy  with  the  potential  to  dramatically  improve  the  thermal  stability  of 
complex  composite  space  structures. 


2.0  THE  ANTI-DISTORTION  APPLIQUE  APPROACH 

The  sources  of  dimensional  instability  in  space  structures  are  numerous  and  can  be  both 
microscopic  and  macroscopic  in  nature.  Instabilities  can  be  functions  of  environmental  changes, 
component  geometry,  composite  lamina  orientation,  microcracking,  moisture  content, 
mechanical  loading  and  other  factors.  Among  various  types  of  dimensional  instability,  thermal 
instability  is  one  of  the  most  commonly  observed.  Generally,  thermally  activated  strains  can 
create  distortion  in  structures  when  the  coefficients  of  thermal  expansion  (CTEs)  vary  among  the 
components.  Even  a  small  CTE  mismatch  can  lead  to  substantial  distortion.  Thus  thennal  effects 
are  one  of  the  most  important  sources  of  space  structures’  dimensional  instability. 

Macroscopically,  the  dimensional  stability  of  structures  can  be  improved  through  refined 
material  processing,  modifying  the  shapes,  sizes  and  relative  positions  of  components.  Farmer  et 
al.  (1992)  performed  a  thermal  distortion  analysis  of  an  antenna-support  truss  in  a  simulated 
geosynchronous  orbit  environment.  Their  study  has  shown  that  some  surface  processing  of  truss 
elements,  e.g.,  using  coating  or  multilayer  insulation,  can  achieve  certain  success  in  alleviating 
thennal  distortion  problems.  In  theory,  if  only  the  thermal  effect  from  unwanted  fabrication 
defects  is  measurable,  then  the  structure  can  be  rectified  by  the  offsetting  effect  generated 
through  components’  geometrical  changes.  This  possibility  was  the  primary  subject  of  this 
research. 
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2.1  Anti-Distortion  Appliques 

It  is  important  to  carefully  select  the  materials  in  order  to  avoid  or  minimize  the  dimensional 
instability  of  space  structures.  For  example,  there  are  many  applications  where  a  near-zero  CTE 
materials  can  lead  to  significant  benefits,  but  even  with  the  use  of  materials  with  near-zero 
coefficient  of  thermal  expansion  (CTE),  instability  can  still  occur  through  the  large  temperature 
changes  and  the  complication  of  temperature  dependent  CTE.  Also,  some  new  applications 
simply  have  extreme  stability  requirements  that  are  beyond  current  technology.  Another  strategy 
for  performance  improvement  is  to  improve  the  dimensional  stability  by  modifying  a  structure’s 
geometry.  Intentional  introduction  of  material  may  be  used  to  work  in  a  beneficiary  way,  i.e., 
structures  can  improve  their  static  or  dynamic  performance  through  purposely  designed  and 
strategically  located  material  additions  which  can  cancel  effects  from  unwanted  manufacturing 
imperfections.  Since  these  material  additions  are  to  cancel  unwanted  thennal  deformations;  they 
were  referred  to  as  anti-distortion  appliques. 

Presented  here  is  a  study  of  how  the  dimensional  stability  can  be  improved  by  the  use  of  anti¬ 
distortion  appliques.  A  joint  structure,  which  is  typical  in  composite  space  structures,  was  taken 
as  a  demonstration  problem.  The  basic  approach  consists  of  a  three  phase  analysis.  First,  a  finite 
element  model  to  predict  the  joint  deformation  due  to  thermal  expansion  was  developed  using 
the  finite  element  analysis  (FEA)  software  ABAQUS.  Second,  the  actual  part  is  tested  in  the 
laboratory  under  simulated  operating  environment  to  measure  the  adverse  thennal  distortions.  In 
this  case  that  meant  lowering  the  temperature  to  simulate  the  cryogenic  environment  of  space. 
Finally,  the  finite  element  model  is  exercised  repeatedly  as  needed  with  material  additions  (anti¬ 
distortion  appliques)  with  the  objective  of  eliminating  the  unwanted  distortions  by  effectively 
introducing  offsetting  distortions.  In  simple  cases  this  last  step  might  be  conducted  by  trial  and 
error  by  an  analyst.  However,  for  more  general  application  an  optimization  study  can  be 
automated  with  software  that  is  adapted  to  modify  and  rerun  the  FEA  over  and  over  again  until 
an  optimized  configuration  of  anti-distortion  appliques  has  been  achieved.  This  last  step  was 
accomplished  using  the  VisualDoc  (2004)  software  which  interrogates  a  text  output  file  from  the 
FEA  and  then  modifies  a  text  input  file  for  the  next  FEA  based  on  an  optimization  algorithm  that 
seeks  to  minimize  an  objective  function  based  on  the  output.  In  this  case,  the  objective  function 
involves  displacements  that  quantify  the  distortion. 

2.2  The  Joint  Structure 

This  research  used  a  composite  T-joint  with  reinforcing  clips  as  a  model  problem  to  illustrate  the 
concept  of  ‘anti-distortion  appliques’  do  reduce  the  unwanted  thennal  distortion  and  thus 
improve  a  structure’s  dimensional  stability.  The  significance  of  studying  the  basic  joint  structure 
has  two  basic  aspects;  first,  some  typical  sources  of  adverse  thennal  distortions  will  be 
illustrated,  and  second,  to  conveniently  show  that  such  thermal  distortions  can  be  reduced 
through  the  addition  of  material  as  detennined  through  FEA.  Overall,  a  strategy  is  sought  for 
systematic  analysis  and  modification  of  composite  structures  to  dramatically  improve  their 
dimensional  stability.  Fig.  1  shows  the  basic  configuration  of  the  composite  T-joint  structure. 
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Figure  1.  The  T-Joint  Structure 

The  horizontal  and  vertical  composite  plates  consist  of  GFRP  laminates.  The  two  curved  clips 
are  also  GFRP  laminates  used  to  support  the  joint  structure.  Thin  film  adhesives  that  connect  the 
plates  with  the  clips  were  explicitly  included  in  the  models.  The  structure  is  assumed  to  sustain  a 
uniform  temperature  change.  To  analyze  the  thermal  deformation  use  has  been  made  of  the  FEA 
software  ABAQUS.  ABAQUS  provides  different  mathematical  options  for  modeling  such  3-D 
thin  structures.  Either  shell  element  or  continuum  element  formulations  can  be  selected  to 
perform  the  analysis.  For  displacement  solutions  they  give  similar  results  for  most  example 
problems  in  the  ABAQUS  documentation.  Depending  on  the  thickness  of  modeled  components, 
the  two  types  of  elements  can  be  used  alternatively  but  generally  for  laminated  composite 
structures  the  shell  elements  are  numerically  much  more  efficient. 

With  the  contemporary  highly  developed  fabrication  technology  of  composite  materials,  the 
negative  GTE  of  fiber  and  positive  GTE  of  matrix  can  be  combined  to  manipulate  and  control  the 
GTE  of  the  formed  composites.  This  can  be  done  to  obtain  desired  unidirectional  properties  or 
isotropic  properties  in  the  plane  of  the  laminate.  In  this  research,  a  transversely  isotropic  (quasi¬ 
isotropic)  GRFP  laminate  was  assumed.  A  negative  CTE  along  the  fiber  direction  in  a  ply  (or 
fiber  alone)  and  a  positive  CTE  in  the  perpendicular  direction  were  assumed.  Through  a  certain 
combination  of  their  volume  fraction  and  ply  angles,  they  can  provide  a  theoretical  null  CTE  for 
the  in-plane  material  behavior  [Ishikawa  et  al.  (1989)].  A  material  with  62%  fiber  volume 
fraction  and  ply  thickness  of  0. 127  mm  was  studied.  The  mechanical  and  thermal  parameters  of 
the  composite  [Matthews  et  al.  (2000)]  are  listed  on  Table  1. 
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Table  1.  The  mechanical  and  thermal  properties  of  the  GFRP  laminae 


E^GPa) 

E2(GPa) 

V12 

V23 

Gi2(GPa) 

G23(GPa) 

CTE 

ai(ppm) 

CTE 

a2(ppm) 

132 

10.8 

0.30 

0.59 

5.61 

3.17 

-0.77 

25 

The  adhesives  are  assumed  to  be  isotropic  with  a  Young’s  modulus  of  6.0  GPa  and  a  Poisson’s 
ratio  of  0.3.  The  CTE  of  the  adhesive  was  taken  as  54  ppm/°C  in  the  computations.  To  illustrate 
some  potential  sources  of  thermal  distortion  of  the  joint,  the  contribution  of  adhesive  thickness 
and  the  clip  misalignment  was  studied  and  discussed  in  the  following  sections. 

2.3  Simulated  thermal  distortions 

One  of  the  attractive  features  of  the  anti-distortion  applique  methodology  is  that  you  do  not  need 
to  know  the  source  of  the  distortions;  only  that  they  are  manifest  by  the  application  environment. 
However,  the  method  does  require  actual  distortion  data.  In  the  absence  of  experimental  data 
simulated  data  can  be  used  to  demonstrate  the  method.  Hence,  the  FEA  was  used  to  predict 
distortions  due  to  assumed  defects  in  manufacture.  For  the  T-joint  structure,  the  laminates  were 
assumed  perfectly  fabricated  as  balanced  and  symmetric  so  no  out  of  plane  deformations  would 
occur  due  to  their  properties.  Yoon  and  Kim  (2001)  studied  the  process-induced  distortions  of 
carbon/epoxy  curved  laminates.  Their  work  included  the  effect  of  anisotropic  CTE  in  curved 
laminates  with  a  temperature  variation.  The  clips  on  the  T-joint  are  curved  but  if  the  structure  is 
symmetric  then  their  effects  will  cancel  and  the  deformations  will  be  perfectly  symmetric. 

To  simulate  distortions  two  different  manufacturing  defects  were  assumed.  First,  the  two  clips 
were  assumed  misaligned  and  second  the  thickness  of  the  adhesive  was  assumed  unsymmetric 
for  the  two  clips.  Fig.  2  and  Fig.  3  show  the  modeled  joint  distortion  due  to  non-uniform 
adhesive  layers  and  clip  dislocation  respectively. 


Figure  2.  The  distortion  due  to  the  inhomogeneous  adhesives 
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What  deformations  are  adverse  to  a  structures  performance  will  be  application  dependent.  In  this 
case,  the  difference  between  the  1-axis  displacements  of  the  two  top  comer  nodes  was  to  be 
minimized.  To  highlight  the  effect  of  clip  misalignment  on  the  thermal  distortion,  a  laminae 
structure  with  8-ply  orientation  [0/30/-30/90]s  has  been  studied.  If  no  manufacture  defects  exist, 
this  arrangement  of  the  orientation  generates  only  symmetric  thermal  deformation  and  no 
distortion.  With  the  effect  from  the  misalignment,  the  modeling  results  indicate  that  the  joint’s 
thermal  distortion  is  closely  related  to  how  much  the  two  clips  are  misaligned.  Table  2  shows  the 
predicted  distortion  for  a  range  of  values  of  clip  misalignment. 


thermal  distortion 


Figure  3.  The  distortion  due  to  the  clip  dislocation 


Table  2.  A  distortion  parameter  for  a  range  of  clip  misalignment  magnitudes 


Misalignment  [mm] 

2.0 

4.0 

6.0 

8.0 

10.0 

Distortion  [mm] 

0.025719 

0.036654 

0.053764 

0.071521 

0.092974 

2.4  Anti-distortion  Appliques  by  Trial  and  Error 

To  reduce  the  effect  from  manufacturing  imperfections  of  adhesives  or  clips,  some  purposely- 
designed  material  additions  can  be  introduced  onto  the  structure.  With  the  present  joint  structure 
being  relatively  simple  in  geometry  and  the  sources  of  the  distortions  known,  using  a  trial-and- 
error  approach  is  possible  to  test  some  appliques.  For  the  case  where  there  exists  a  thickness 
difference  between  the  adhesives  on  the  two  sides  (Fig.  2),  it  was  found  that  if  the  plate  was 
modified  with  a  protruding  strip  added  on  the  side  with  the  thicker  adhesive,  the  thermal 
distortion  can  be  reduced.  Fig.  4  shows  the  analysis  results  for  the  modified  structure. 
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A  similar  procedure  was  implemented  for  the  case  where  there  exists  dislocation  between  the 
two  clips.  It  was  found  that  if  two  strips  are  attached  to  the  plate  with  also  a  dislocation  existing 
between  them,  then  they  will  generate  the  required  offsetting  effect,  which  just  cancels  that 
caused  by  the  clip  dislocation.  This  result  is  shown  in  Fig.  5. 


Figure  4.  Eliminating  distortion  due  to  imbalanced  adhesive  by  adding  an  applique 


Figure  5.  Eliminating  distortion  due  to  clip  misalignment  by  adding  two  appliques 
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The  trial-and-error  approach  works  easily  only  for  simple  structures  where  the  defonnation  is  not 
too  complicated  and  especially  when  the  source  of  the  defonnation  is  known.  But  even  for  such 
simple  structures,  trial-and-error  can  be  an  inefficient  approach.  Considering  the  numerous 
possibilities  of  various  applique  shapes  and  locations,  a  trial-and-error  approach  may  not  yield 
the  best  design  of  appliques  quantitatively,  or  it  may  be  very  time  consuming  or  computational 
expensive,  even  though  the  method  can  in  some  ideal  cases  generate  a  close  to  perfect  result.  So 
for  more  complicated  structures  parametric  optimization  analysis  is  preferred.  In  the  following 
section  an  optimization  study  will  be  discussed,  still  using  the  joint  structure  as  an  example. 

2.5  Designing  Appliques  Using  an  Optimization  Procedure 

Here,  the  design  optimization  was  performed  with  ABAQUS  working  jointly  with  the 
optimization  software  VisualDOC  (2004).  ABAQUS  is  used  for  the  thermo-mechanical  analysis 
and  VisualDOC  provides  an  approach  to  search  for  the  best  array  of  applique  parameters. 

Among  the  different  algorithms  used  to  find  the  optimum  solution  of  an  objective  function,  the 
methods  in  VisualDOC  can  be  classified  as  gradient-based  and  non-gradient  based  approaches. 
The  gradient-based  approaches  take  the  standard  strategy  of  finding  an  extreme  value  of  a 
function.  They  first  calculate  the  derivatives  of  an  objective  function  with  respect  to  the  design 
variables  and  then  use  the  calculated  derivatives,  or  the  “gradients”  to  detennine  the  search  path 
to  find  the  next  good  approximation  of  the  optimum  value  to  be  determined.  With  enough 
iteration,  the  procedure  will  generally  converge  to  the  optimum  values.  The  gradient-based 
approaches  are  usually  computationally  efficient  in  finding  optimum  solutions  for  continuous 
problems  but  do  not  work  well  for  discrete/integer  design  problems  where  some  parameters  take 
values  from  a  discrete  set  instead  of  continuous  functions  like  typical  field  variables.  The 
optimization  problem  studied  in  this  research  is  generally  of  the  mixed  type  where  some  design 
variables  such  as  applique  positions  are  continuous  but  others  may  be  discrete  such  as  the 
number  of  appliques.  A  non-gradient  based  algorithm,  namely  the  particle  swann  optimization 
(PSO)  [VisualDOC  (2004)]  algorithm  was  applied  when  the  number  of  appliques  was  a  design 
variable.  This  algorithm  can  handle  either  continuous  or  discrete  design  variables  or  a  mixed 
problem. 

In  the  context  of  the  present  problem,  design  variables  could  include  shape,  position,  size, 
physical  properties,  the  number  of  appliques,  etc.  In  the  following  sections  shape  optimization 
and  position  optimization  of  the  appliques  for  the  joint  structure  will  be  discussed  using  a  few 
modeling  examples. 

2.5.1  Optimization  with  respect  to  applique  shape 

In  this  study  two  rectangular  appliques  were  attached  to  the  T-joint  vertical  plate.  In  an  attempt 
to  optimize  the  appliques’  shape,  perturbations  were  continually  made  to  the  corner  points.  The 
coordinates  of  all  relevant  nodes  were  changed  so  that  the  component’s  geometrical  shape  is 
correspondingly  modified.  For  every  new  perturbed  shape,  ABAQUS  performs  an  analysis  of  the 
deformation  and  feeds  back  the  results  to  the  optimization  routine.  This  process  continues  until  a 
minimization  of  the  objective  function  for  the  structure  has  been  achieved  within  the  limitations 
of  a  fixed  range  of  design  variables.  Fig.  6  shows  two  initial  rectangular  appliques  added  onto 
one  surface  of  the  vertical  web. 
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Figure  6.  Two  rectangular  appliques  attached  on  the  two  surfaces  of  the  plate 

Isoparametric  mapping  was  used  to  compute  the  coordinate  changes  of  all  inner  nodes  due  to  the 
effect  from  perturbations  on  the  comer  node  locations  of  the  appliques.  The  parametric 
coordinates  of  the  nodes  are  taken  as  the  same  as  those  used  to  calculate  the  shape  functions  in 
common  finite  element  analysis.  The  perturbations  to  all  node  coordinates  were  calculated  as 
follows  [Leiva  and  Watson  (1998),  Candan  et  al.  (2000)], 


Pxi=  X  Pxj  Nj  Oi,  q„  CO 

j 

(la) 

Pyi~  S  Pyj  ^  Ob  hi,  CO 

j 

(lb) 

Pzi=  X  PzjNj  Ob  hi,  CO 

(lc) 

j 


The  summations  in  equations  (1)  are  over  all  the  perturbed  points  where  Pxj,  Pyj  and  Pzj  are  the 
perturbations  on  the  coordinates  of  these  points.  £i,  hi  and  g  are  the  parametric  coordinates  of  all 
nodes  and  Nj  (g,  q,,  Q  are  the  corresponding  shape  functions.  For  a  linear  mapping,  the  shape 
functions  of  a  4-node  2-dimensional  element  have  the  form: 


(2a) 


N!a)  =  0.25*(l-4i)(l-TlO 

N2a)  =  0.25*(1+ ^)(1- qO 
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(2b) 


N3®  =  0.25*(1+  ^i)(l+  rii)  (2c) 

N4a)  =  0.25*(l-^)(l+ni)  (2d) 

The  shape  functions  for  8-node  quadratic  elements  are  given  by: 

NiG)  =  -0.25 *(  1  -  £)(1-  Tii)(  £  +  q,  +1)  (3a) 

N2G)  =  0.25*(1+  Si)(l-  Tii)(  Si  -  Tii  -1)  (3b) 

N3G)  =  0.25*(1+  Si)(l+  n0(  &  +  hi  -1)  (3c) 

N4G)  =  -0.25*(1-  Si)(l+  n0(  &  -  hi  +1)  (3d) 

N5a)  =  0.5*(l-Si2)(l-Tii)  (3e) 

N6<^)  =  0.5*(1  +  Si)(l-  hi2)  (3f) 

N7a)  =  0.5*(l-^2)(l+hi)  (3g) 

N8G)  =  0.5*(l-Si)(l-h2)  (3h) 


With  all  perturbations  calculated,  the  basic  vectors  that  produce  the  desired  shapes  for  the 
applique  can  be  generated  as  follows, 


XBi 

=  X1°  +  Pxl 

(4a) 

YB; 

■p, 

+ 

o 

II 

(4b) 

ZBi 

=  z,0  +  Pzi 

(4c) 

Where  X;°,  Y;°  and  Z;°  are  the  initial  coordinates  of  node  i.  Linear  modifications  can  be 
performed  with  the  perturbations  occurring  only  on  the  corner  points.  This  technique  transfers 
the  initial  rectangular  shape  into  a  new  quadrilateral  if  the  initial  rectangular  shape  is  treated  as 
one  domain  or  into  a  polygon  if  two  domains  are  used.  By  resorting  to  higher  order  mapping 
with  mid-side  node  points  also  perturbed  along  with  the  corner  points,  the  initial  rectangular 
shape  can  be  modified  into  a  curved  geometrical  shape.  Fig.  7  illustrates  two  examples  with 
such  perturbations  implemented. 

Alternative  shapes  are  usually  first  specified  in  shape  optimization  and  these  shapes  are 
represented  by  a  set  of  displacement  vectors  known  as  basic  vectors  [Candan  et  al.  (2000)], 
which  depict  the  deviation  from  the  component’s  initially  assumed  configuration  to  the 
alternative  shapes.  These  basic  vectors  fonn  the  design  space  in  optimization  process.  With 
several  potentially  optimum  shapes  generated  in  terms  of  the  basic  vectors  for  the  components  to 
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be  designed,  the  real  coordinates  of  all  nodes  can  be  assumed  to  be  the  combination  of  these 
possible  shapes  [Candan  et  al.  (2000)], 


Xi=Xi°  +  X  DVk(XBlk-X,°) 

k 

(5a) 

Yi=Yi°  +  £  DVk(YBlk-Y,°) 

(5b) 

Zi=Zj°  +  X  DVk(ZBik-Zi°) 

(5c) 

where  DVk  are  the  design  variables.  The  goal  of  the  design  optimization  is  reduced  to  seeking 
the  values  of  these  design  variables,  which  extremize  the  objective  functions. 

Next,  an  example  is  presented  for  the  minimization  of  the  thennal  distortion  of  the  T-joint 
structure.  The  joint  is  assumed  to  suffer  a  temperature  change  of  500  °F,  which  causes 
inhomogeneous  thermal  expansion  and  distortion  if  some  manufacturing  defects  exist  in  the 
structure.  One  possible  measure  of  thennal  distortion  is  the  difference  between  the  displacements 
of  the  two  top  corner  nodes  of  the  vertical  plate.  Note  that  a  perfectly  fabricated  joint  structure 
would  be  perfectly  symmetric  and  this  measure  of  distortion  would  be  zero.  For  this  example,  all 
the  plates  and  supporting  clips  are  still  assumed  to  consist  of  8-ply  laminates  with  orientations 
[0/30/-30/90]s.  For  a  defect  it  is  assumed  that  the  two  clips  have  a  gross  misalignment  of  6  mm. 
The  elastic  and  thermal  properties  are  also  assumed  the  same  as  in  the  previous  sections.  Without 
the  addition  of  anti-distortion  appliques,  the  two  out  of  plane  displacements  were  computed  as; 

U 

Displacement  at  top  left  node  -3 . 0510E-02 

Displacement  at  top  right  node  2 . 3254E-02 

With  two  appliques  added  onto  the  two  opposite  surfaces  of  the  vertical  plate  as  shown  on  Fig.  7, 
optimization  can  be  perfonned  with  respect  to  both  the  position  and  shape  of  these  appliques.  For 
instance,  if  the  above  displacements  were  used  to  define  an  objective  function  defined  as  the 
square  of  the  difference  of  the  two  displacements,  the  optimization  computation  produces  the 
following  results. 


U 

Displacement  at  top  left  node  -8 . 8133E-03 

Displacement  at  top  right  node  1 . 4520E-02 

The  objective  function  history  was  as  indicated  by  Fig.  8.  The  difference  in  displacement  was 
reduced  from  approximately  0.054  to  0.023.  The  optimized  appliques  are  illustrated  in  Fig.  9.  In 
this  case,  the  improvement  is  modest  but  the  problem  serves  to  illustrate  the  fundamentals  of  the 
approach. 
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(b) 


Figure  7.  Examples  of  perturbed  applique  shapes 
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Figure  8.  The  minimization  of  the  objective  (U(i)-U(2))2 


Response  History 


Figure  9.  Optimized  appliques 
2.5.2  Optimization  with  respect  to  applique  position 

For  industrial  application,  there  would  be  some  limitations  on  the  appliques.  For  example,  the 
total  area  of  the  appliques,  the  mass  of  the  appliques,  the  relative  positions  of  appliques  on  the 
major  components  will  all  generally  have  limits.  In  the  currently  studied  joint  structure  it  makes 
sense  that  the  size  of  the  attached  appliques  should  be  much  smaller  than  that  of  the  major 
components.  Small  appliques  have  more  flexibility  in  their  possible  positions.  It  is  expected  that 
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the  same  correction  effect  can  be  achieved  through  a  few  smaller  appliques  as  does  by  the  two 
larger  ones.  In  this  case  it  would  be  expected  that  the  position  of  the  appliques  would  have  a 
dominant  effect  versus  the  shape.  The  example  computation  presented  next  shows  that  through 
finding  their  optimal  position  the  attached  smaller  appliques  can  similarly  reduce  the  distortion 
deformation  due  to  thennal  effect. 


The  computation  was  carried  out  for  a  composite  material  with  almost  null  CTEs  studied  by 
Ishikawa  et  al.  (1989).  This  material  is  a  20-ply  laminate  with  the  fiber  angle  of  +  46.4°  and  their 
mechanical  and  thennal  ply  properties  are  shown  in  Table  3. 


Table  3.  The  mechanical  and  thermal  ply  properties  for  a  near  zero  CTE  laminate 


Ei(GPa) 

E2(GPa) 

V12 

V23 

Gi2(GPa) 

G23(GPa) 

CTE 

Ai(ppm) 

CTE 

A2(ppm) 

135 

11.0 

0.30 

0.59 

5.5 

3.17 

-0.26 

3.2 

Fig.  10  shows  the  magnified  distortion  state  of  the  joint  due  to  a  little  misalignment  of  the  two 
clips  with  the  structure  assumed  to  sustain  a  temperature  change  of  500  °K.  To  reduce  the 
distortion  of  the  vertical  web  a  few  small  appliques  were  added  on  the  two  sides  of  the  web.  As 
a  simple  illustration,  two  rectangular  appliques  were  attached  to  each  side  of  the  plate 
respectively  with  their  positions  to  be  determined  through  the  optimization.  The  appliques  were 
initially  randomly  placed  on  the  two  sides  of  the  vertical  web.  Fig.  1 1  illustrates  the  initial 
deformed  state  of  the  structure  after  the  small  appliques  were  added  but  before  the  optimization 
procedure  was  started. 

The  optimization  goal  was  to  minimize  the  summation  of  the  absolute  displacement  values  of  all 
the  19  topmost  nodes  (see  Fig.  10)  of  the  vertical  web.  With  the  optimization  procedure 
implemented  with  respect  to  the  positions  of  the  four  small  appliques,  the  four  pairs  of  their 
coordinates  on  the  vertical  plate  were  defined  as  the  design  variables.  The  computation  was 
carried  out  to  find  the  appliques’  best  positions  through  changing  these  variables  continually  so 
that  the  objective  function  was  minimized.  The  results  obtained  from  the  optimization  procedure 
are  listed  in  Table  4. 

It  can  be  observed  that  the  displacements  of  most  nodes  have  been  significantly  decreased  and 
their  summation  has  been  reduced  by  nearly  an  order  of  magnitude.  Fig.  12  illustrates  the 
deformations  of  the  joint  after  the  four  small  rectangular  appliques  were  attached  to  the  two  sides 
of  the  vertical  plate  at  their  optimal  positions. 
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thermal  distortion 


added  small 
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Figure  11.  The  joint’s  initial  state  with  appliques  added  but  before  optimization 
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Table  4.  Optimized  deformal 

ion  in  terms  of 

top  nodes  displacement 

unit:  1C 

1  mm) 

Node 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

No 

appliques 

-2.9 

1.8 

4.9 

5.8 

5.3 

4.3 

3.1 

2.0 

0.96 

-0.01 

With 

appliques 

-0.39 

0.8 

1.1 

0.67 

0.27 

0.10 

0.06 

0.08 

0.13 

0.21 

Node 

11 

12 

13 

14 

15 

16 

17 

18 

19 

Sum 

No 

appliques 

-0.98 

-2.0 

-3.1 

-4.3 

-5.3 

-5.8 

-4.9 

-1.9 

2.9 

62.3 

With 

appliques 

0.30 

0.39 

0.38 

0.08 

0.18 

0.18 

-0.94 

-1.6 

-1.3 

9.12 

Node 


added  small  defects 
at  optimum  positions 


Figure  12.  The  optimized  structure  after  adding  four  small  appliques 
2.6  Hardware  Design  and  Optimization 

In  cooperation  with  ATK  Corp.  a  specific  T-joint  geometry  was  developed  for  experimental 
demonstration  of  the  anti-distortion  applique  methodology.  To  obtain  measurable  distortions  the 
basic  T-joint  was  modified  to  include  a  metal  foil  covering  a  portion  of  one  side  of  the  vertical 
web.  Photogrammetry  was  used  to  measure  deflections  due  to  temperature  change.  The  system 
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used  has  an  accuracy  limit  of  about  0.025  mm.  A  finite  element  model  of  the  joint  indicated  the 
metal  foil  would  cause  thermal  distortion  deflections  about  one  order  of  magnitude  larger  so  they 
would  be  measurable  within  reasonable  error.  Several  views  of  the  finite  element  model  are 
shown  in  Fig.  13-16.  Shown  in  these  figures  are  nominal  dimensions  of  the  actual  assembly 
including  the  metal  foil.  All  the  composite  parts;  base  plate,  vertical  web,  and  curved  clips  were 
made  up  of  a  48  ply  laminate  with  a  ([-45/0/45/90]s)6  laminate  sequence.  Initially  the  metal  foil 
was  assumed  to  be  aluminum.  The  thenno-elastic  properties  used  in  the  analyses  for  the 
adhesive,  the  laminae,  and  the  aluminum  foil  are  listed  in  Table  5. 

As  a  result  of  the  previously  described  analyses  it  was  concluded  that  perhaps  the  most  efficient 
approach  for  implementing  the  anti-distortion  applique  methodology  was  to  use  simple 
rectangular  appliques  and  limit  the  design  variables  to  coordinate  locations  of  the  appliques. 
Hence,  this  basic  strategy  was  used  for  the  remainder  of  the  study.  Of  course,  depending  on  the 
application  different  materials  might  be  used  for  the  appliques.  For  example,  coupons  of 
unidirectional  composite  would  introduce  anisotropy  of  the  applique  thermo-mechanical 
response  and  possibly  be  more  effective  in  certain  situations.  Then,  the  applique  orientation 
could  also  be  an  effective  design  variable  in  the  optimization. 

Prior  to  any  testing  a  purely  analytical  optimization  was  performed  that  mimicked  the  process 
eventually  used  on  the  actual  part.  The  photogrammetry  was  capable  of  tracking  a  finite  number 
of  predefined  target  points.  Nine  target  points  were  established  on  the  foil  side  of  the  vertical 
web  as  illustrated  in  Fig.  17.  Deflections  at  these  target  points  then  serve  as  a  basis  for  defining 
an  objective  function  for  the  analysis.  Physically,  it  was  decided  that  the  objective  would  be  to 
keep  the  vertical  web  flat  with  no  regard  for  rigid  body  motion.  Mathematically  this  meant  using 
three  of  the  target  points  to  define  a  plane  and  then  minimizing  the  relative  out  of  plane 
displacements  of  the  remaining  target  points. 

2.6.1  Objective  function 

In  what  follows,  the  objective  function  was  defined  in  terms  of  the  displacements  at  the  9  target 
points  utilized  by  the  photogrammetry.  Three  of  those  points  define  a  plane  in  the  deformed 
coordinates.  The  points  chosen  to  define  a  plane  were  B,  D,  and  C  as  labeled  in  Fig.  17. 

Two  position  vectors  were  defined  on  the  plane  using  points  B,  D,  and  C  as  follows: 


VX  =  (XB  ~  XD  )/  +  (yB  -  yD  )  j  +  (ZB  ~  ZD  )k 

V  V  V 

a{  bx  cx 

V2  =  (xc  -  xD  )/  +  (yc  -  yD  )j  +  (zc  -  zD  )k 

V  V  V 

a2  b2  c2 
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Figure  13.  Front  view  of  the  T-joint  depicting  the  attached  layer. 
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Figure  14.  Top  view  of  the  T-joint  model 
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Figure  15.  Front  view  of  the  T-joint  model  depicting  the  clips 
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Figure  16.  The  T-joint  model  with  a  thin  layer  attached  to  the  vertical  plate 


23 


Table  5.  Thermo-elastic  properties  of  the  constituents 


Property 

Lamina 

A1 

Adhesive 

Ti 

E\  \  (Msi) 

30 

10.5 

0.3 

16.8 

Eh  ,  E33  (Msi) 

1.5 

10.5 

0.3 

16.8 

V12,  ni3 

0.3 

0.33 

0.41 

0.36 

Gn,  Gn  (Msi) 

0.4 

3.946 

0.1064 

6.185 

U23 

0.6 

0.33 

0.41 

0.36 

o-n  (m  0F_1) 

-0.2 

13 

42 

4.72 

«22,  «33  (ju  °F'1) 

15 

13 

42 

4.72 

Figure  17.  Side  view  of  the  T-joint  with  target  points 


The  unit  normal  that  defines  this  plane  was  obtained  from  the  nonnalized  cross-product  of  the 
vectors  Vx  and  V2  and  is  given  by, 


Fj  x  V2  ( dxi  +  d2j  +  d3k) 

VxxV2\~  Jd?+dl+d* 


dl=blc2-b2cl 

where  dn  =  —(axc2  —a2c . 

d3  =  ( ap2  -  a2bx ) 
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The  position  vectors  from  point  D  to  each  of  the  remaining  points  A,  G,  H,  F,  and  E  in  the  model 
are  given  in  the  following  equations.  Note  that  the  target  point  “I”  was  not  considered  in  the 
objective  function. 


F3  =  (xA  -  xD)i  +  (yA  -  yD)j  +  (zA  -  zD)k 

a3  b3  c3 

V4  =  (xG  -  xD)i  +  (yG  —  yD)j  +  (zG  -  zD)k 

°4  *4  c4 

V5  =  (xH  -  xD  )i  +  (yH  -  yD )]  +  (zH  -  zD  )k 

V  V  V 

a5  ^5  c5 

V6  =  (xF  -  xD  )i  +  (yF  -yD)j  +  (zF  -  zD  )k 

V  V  V 

a6  K  c6 

f7  =  (xF  -  xD)i  +  (yE  -  yD)J  +  (zE  -  zD)k 

ai  b-j  c-j 

The  out  of  plane  deflections  of  points  A,  G,  H,  F,  and  E  were  then  obtained  from  the  scalar 
product  of  the  above  position  vectors  and  the  unit  normal  vector.  The  objective  function  to  be 
minimized  was  defined  as  the  sum  of  the  squares  of  the  scalar  products  between  the  plane 
normal  un  and  the  vectors  f  through  V7.  This  results  in: 

Obj  =  {idxa7  +  d2b7  +  d7cf)2  +  (dla4  +  d2b4  +  d2c4)2  +  {dxa5  +  df5  +  d2c5 )2  + 

( dla6  +d2b6  +  d2c6)2  +(dla7  +d2b7  +  dic1)2)/(d2  +d2  +d2) 

2.6.2  Numerical  Implementation 

The  original  coordinates  of  the  target  points  A  through  H  in  the  global  system  are  given  in  the 
second  column  of  Table  6.  The  notation  for  the  displacement  components  and  the  updated 
coordinates  are  given  in  the  third  and  fourth  columns.  The  deformed  coordinates  are  then  used 
to  calculate  the  position  vectors  defined  above  which  were  used  to  compute  the  updated  scalar 
value  of  the  objective  function.  In  an  actual  application  of  the  method  the  displacements  would 
come  from  experiments  that  simulate  the  structure’s  application  environment.  These  actual 
displacements  would  be  added  to  the  FEA  model  predicted  displacements  so  that  the 
minimization  process  would  yield  predicted  displacements  that  cancel  with  the  measured  ones 
yielding  a  net  minimized  distortion.  Here,  in  the  absence  of  experimental  data,  the  appliques  are 
to  introduce  distortions  that  cancel  with  the  simulated  displacements  due  to  the  aluminum  foil. 

2.6.2. 1  Optimization  with  3  appliques 

To  introduce  displacements  that  minimize  the  above-described  objective  function,  three 
aluminum  appliques  each  of  size  0.5”x  0.5”x0.04”  were  modeled  as  attached  to  the  vertical  web 
on  the  side  opposite  the  aluminum  foil  as  depicted  in  Fig.  18.  Each  of  the  appliques  was 
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simulated  as  attached  to  the  vertical  web  with  a  0.01”  thick  adhesive  layer  included.  The 
objective  function  was  minimized  by  altering  the  position  of  these  three  appliques.  The 
appliques  positions  were  altered  and  the  analysis  was  repeated  as  driven  by  the  optimization 
software  VisualDOC.  Fig.  19  shows  the  numerical  value  of  the  objective  function  as  the  position 
of  the  appliques  was  modified  by  the  gradient  based  optimization  routine.  Excessive  iterations 


were  forced  to  help  assure  convergence  to  an  optimum.  Ultimately  the  objective  function  was 
reduced  by  approximately  90%  by  finding  the  optimal  positions  of  the  three  appliques.  The 
optimized  positions  are  given  in  Table  7  where  the  x  and  y  coordinate  indicate  the  position  of  the 
center  of  appliques  on  the  vertical  plate.  Note  that  the  origin  for  this  coordinate  system  is  the 
same  as  that  of  the  model  and  located  at  the  mid-point  of  the  bottom  of  the  base  plate  with  the  x- 
y-z.  The  x-y-z  directions  correspond  to  the  1-2-3  coordinate  system  shown  in  Fig. 18. 

Table  6.  Original  and  deformed  coordinates  of  target  points  used  in  the  objective  function 

Label 

Coordinates 

Displacements 

Deformed 

coordinates 

Xa 

0 

Uxa 

Uxa 

Ya 

3.37 

Uya 

3.37  + Uya 

Za 

-0.074 

Uza 

-0.074  +  Uza 

Xb 

1.25 

Uxb 

1.25  +  Uxb 

Yb 

1.87 

Uyb 

1.87  + Uyb 

Zb 

-0.074 

Uzb 

-0.074  +  Uzb 

Xc 

-1.25 

Uxc 

-1.25  +  Uxc 

Ye 

3.37 

Uyc 

3.37  + Uyc 

Zc 

-0.074 

Uzc 

-0.074  +  Uzc 

Xd 

-1.25 

Uxd 

-1.25  + Uxd 

Yd 

1.87 

Uyd 

1.87  + Uyd 

Zd 

-0.074 

Uzd 

-0.074  +  Uzd 

Xe 

0 

Uxe 

Uxe 

Ye 

1.87 

Uye 

1.87  + Uye 

Ze 

-0.074 

Uze 

-0.074  +  Uze 

Xf 

0 

Uxf 

Uxf 

Yf 

2.62 

Uyf 

2.62  +  Uyf 

Zf 

-0.074 

Uzf 

-0.074  +  Uzf 

Xg 

1.25 

Uxg 

1.25  + Uxg 

Yg 

3.37 

Uyg 

3.37  + Uyg 

Zg 

-0.074 

Uzg 

-0.074  +  Uzg 

Xh 

1.25 

Uxh 

1.25  +  Uxh 

Yh 

2.62 

Uyh 

2.62  +  Uyh 

Zh 

-0.074 

Uzh 

-0.074  +  Uzh 

Xi 

-1.25 

Uxi 

-1.25  +  Uxi 

Yi 

2.62 

Uyi 

2.62  +  Uyi 

Zi 

-0.074 

Uzi 

-0.074  +  Uzi 
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Figure  18.  FE  model  showing  aluminum  appliques  located  to  minimize  the  objective 
function 


Design  Iteration 


Figure  19.  Objective  function  as  a  function  of  design  iterations  for  three  appliques 
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Table  7.  Optimized  positions  of  the  three  appliques 


Defect 

X 

y 

1 

-0.003081051 

2.891623 

2 

0.858794 

2.404868 

3 

-0.9660705 

2.979695 

2. 6. 2.2  Optimization  with  4  appliques 

For  actual  fabrication,  titanium  foil  was  selected  instead  of  the  aluminum  modeled  as  described 
above.  The  properties  of  the  titanium  are  shown  in  Table  5.  Another  “analysis  only” 
optimization  was  conducted  with  titanium  in  the  model  and  with  four  appliques  used  instead  of 
three.  The  thickness  of  the  appliques  was  reduced  to  0.025  inch.  The  positions  of  the  four 
appliques  were  optimized  to  reduce  the  objective  function  defined  earlier.  The  optimized 
positions  of  the  four  appliques  are  listed  in  Table  8.  Fig.  20  shows  the  history  of  the  magnitude 
of  the  objective  function.  The  optimization  reduced  the  objective  function  by  87.5%. 


Design  Iterations 


Figure  20.  Objective  function  as  a  function  of  design  iterations  for  a  model  with  four 
appliques 


Table  8.  Optimized  position  of  four  appliques 


Defect 

X 

y 

1 

-0.1145515 

2.364928 

2 

0.729481 

2.133869 

3 

-0.5826635 

1.98095 

4 

-0.4651298 

1.18 
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2.7  Validation  with  Experiments 

For  experimental  correlation  the  objective  function  was  slightly  modified  and  the  target  points  at 
which  the  displacements  were  measured  were  altered.  The  laminate  properties  were  also  altered 
and  were  held  proprietary  by  an  industry  partner.  The  actual  composite  laminate  was  similar  to  a 
quasi-isotropic  graphite  epoxy  system  modeled  in  the  previous  section.  The  target  points  utilized 
in  this  new  objective  are  shown  in  Fig.  17.  Point  E  was  not  considered  in  the  analysis.  Also,  as 
previously  described,  the  experimental  displacements  in  the  three  coordinate  directions  at  the 
target  points  were  added  to  each  of  the  displacements  in  the  objective  function  so  that  a 
minimized  objective  function  results  in  applique  driven  displacements  that  cancel  with  those 
measured  in  the  laboratory;  thus  minimizing  the  overall  distortion  of  the  structure.  The  new 
objective  function  is  defined  as  follows  where  the  terms  tr ,  bi ,  and  ci  are  defined  in  Table  9. 

Obj  =  ((Jj03  +  d^b2  +  J3c3)2  +  (d1a4  +  d2b4  +  d2c4)2  +  ( dla5  +  d^b5  +  d2c5)2  + 

(dla6  +  dnb6  +  d2c6)2  +  (J,a8  +  d2b&  +  d2cs)2)  /(d2  +  d2  +  d2) 

Table  9.  Variables  and  initial  coordinates  input  to  the  objective  function 


Label 

Deformed 

Coordinates 

Displacements 

al 

Xb-Xd 

2.494993  +Uxb  -  Uxd 

bl 

Yb- Yd 

0.005813  +Uyb-Uyd 

cl 

Zb-Zd 

0.000209  +  Uzb  -  Uzd 

a2 

Xc-Xd 

0.001652 +  Uxc- Uxd 

b2 

Ye- Yd 

1.506772  +  Uyc  -Uyd 

c2 

Zc-Zd 

-0.01261  +Uzc  -  Uzd 

a3 

Xa-Xd 

1.24383  +  Uxa  -Uxd 

b3 

Ya- Yd 

1.501 13  +  Uya  -  Uyd 

c3 

Za  -  Zd 

-0.007942  +  Uza  -  Uzd 

a4 

Xg-Xd 

2.494082  +  Uxg  -  Uxd 

b4 

Yg- Yd 

1.50188  +  Uyg  -  Uyd 

c4 

Zg-Zd 

-0.004613  +  Uzg  -  Uzd 

a5 

Xh-Xd 

2.498276  +  Uxh-  Uxd 

b5 

Yh- Yd 

0.759291  +  Uyh  -  Uyd 

c5 

Zh-Zd 

-0.008923  +  Uzh  -  Uzd 

a6 

Xf-Xd 

1.244347 +  Uxf- Uxd 

b6 

Yf- Yd 

0.756278 +  Uyf- Uyd 

c6 

Zf-Zd 

-0.008263  +Uzf- Uzd 

a7 

Xe-Xd 

1.245789 +  Uxe- Uxd 

b7 

Ye- Yd 

0.009036  +  Uye  -  Uyd 

c7 

Ze-Zd 

-0.006377  +  Uze  -  Uzd 

a8 

Xi-Xd 

0.002422  +  Uxi  -  Uxd 

b8 

Yi- Yd 

0.753504  +  Uyi  -  Uyd 

c8 

Zi-Zd 

-0.003331  +Uzi- Uzd 
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2.7.1  Experimental  Results 

Alliant  Techsystems  (ATK)  Corporation  conducted  the  photogrammetry  experiments.  The  T- 
joint  structure  prepared  for  photogrammetry  is  shown  in  Fig.  2 1 .  The  titanium  foil  can  be  seen 
on  the  vertical  web  along  with  the  9  target  points  where  the  displacements  are  measured.  The 
various  dot  patterns  on  the  base  plate  are  utilized  by  the  photogrammetry  software  to  solve  for 
the  camera  position.  The  T-joint  was  subjected  to  a  temperature  change  from  80  C  to  -150  C. 

The  measured  displacement  data  is  summarized  in  Fig.  22-24.  Only  the  displacements 
perpendicular  to  the  web  were  of  practical  interest  since  they  will  dominate  the  characterization 
of  the  nonplanar  distortion  of  the  vertical  web.  In  each  figure,  the  raw  displacements  for  each 
row  of  3  points  are  shown  that  include  displacement  due  to  rigid  body  motion  of  the  T-joint 
structure.  Subsequently  the  rigid  body  part  of  the  total  displacements  was  removed  and  the 
resulting  net  displacements  are  seen  to  be  in  reasonable  agreement  with  finite  element 
calculations  performed  both  at  ATK  and  at  the  University  of  Wyoming. 

The  top  row,  where  the  deflections  are  the  largest,  are  in  particularly  good  agreement  with  the 
results  from  the  FE  analyses.  The  bottom  row  has  what  could  be  described  as  an  anomaly.  The 
experimental  data  suggests  that  the  web  has  a  curvature  opposite  that  of  the  other  two  rows  and 
opposite  that  of  the  FEA  predictions.  The  source  of  the  anomaly  is  unknown.  However,  it  is 
known  that  the  precision  of  the  experimental  apparatus  is  marginal  (on  the  order  of  0.001  inch) 
compared  to  the  small  deflections  occurring  along  the  bottom  row  of  target  points  (on  the  order 
of  0.002  inch).  With  that  observation  and  the  relatively  good  agreement  with  the  other  two  target 
rows,  the  experiment  was  believed  to  be  a  success. 

2.7.2  Applique  Optimization 

Two  aluminum  appliques,  half  inch  square  and  of  0.025  inch  thickness  were  modeled  as  attached 
to  the  vertical  web  using  an  adhesive  of  0.010”  thickness.  Larger  numbers  of  appliques  were 
found  to  be  ineffective  in  further  reducing  the  objective  function.  To  be  effective,  it  was  known 
that  the  appliques  would  have  to  be  on  the  side  opposite  the  titanium  foil.  The  optimization 
procedure  was  performed  using  VisualDOC  combined  with  the  ABAQUS  FE  model  of  the  joint 
to  minimize  the  objective  function  that  relates  to  non-planar  distortion  of  the  web.  The 
optimized  positions  of  the  appliques  result  in  an  approximately  61%  decrease  in  the  objective 
function  according  to  the  FE  model  predictions.  The  resulting  position  of  the  appliques  on  the 
FE  model  is  as  shown  in  Fig.  25.  Fig.  26  shows  the  T-joint  with  the  two  appliques  bonded  in 
place  in  preparation  for  testing. 

The  61%  decrease  was  much  less  than  the  decrease  predicted  previously  with  “analysis  only” 
optimization.  This  may  have  been  in  part  due  to  the  limitations  of  the  photogrammetry  system. 
The  numerical  optimization  procedure  attempts  to  eliminate  the  measured  deflections.  If 
components  of  those  deflections  are  not  real  (experimental  error)  then  they  will  generally  be 
counter  to  the  physics  of  the  problem.  Since  the  models  presumably  do  a  good  job  of  simulating 
the  physics  they  will  have  extreme  difficulty  offsetting  nonphysical  defonnations  with  the 
appliques. 
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Figure  21.  Composite  T-joint  prepared  for  thermal  distortion  testing 


Normal  to  Vertical  Web  Deflection  80C  to  -150C 
Upper  Target  Row 


Figure  22.  Top  row  target  point  normal  deflections  compared  to  FE  predictions 
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Figure  23.  Middle  row  target  point  normal  deflections  compared  to  FE  predictions 


Normal  to  Vertical  Web  Deflection  80C  to  -150C 
Lower  Target  Row 


Figure  24.  Bottom  row  target  point  normal  deflections  compared  to  FE  predictions 
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Figure  25.  Optimized  position  of  two  appliques 


Figure  26.  Adhesively  bonded  appliques 
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2.8  Summary 

In  this  chapter  an  approach  for  improving  dimensional  stability  of  composite  structures  was 
discussed.  The  basic  procedure  is  quite  different  than  the  contemporary  strategy  involving  ever 
increasing  refinement  of  manufacturing  technology.  Here  it  was  proposed  that  the  as  built 
structure  can  be  modified  to  remove  dimensional  instabilities  stemming  from  inevitable 
manufacturing  defects.  The  approach  relies  on  a  numerical  (FE)  representation  of  the  thermo¬ 
mechanical  properties  of  the  structure.  The  model  can  be  idealized  because  it  is  unnecessary  to 
simulate  the  sources  of  thermal  distortion.  In  fact,  the  sources  can  be  unknown.  The  model  is 
then  used  to  design  modifications  through  material  additions  referred  to  as  “anti-distortion 
appliques”  that  cause  distortions  opposite  to  those  measured  in  the  laboratory.  To  automate  the 
process,  optimization  software  was  used  in  conjunction  with  the  FE  software  so  that  optimal 
configurations  could  be  detennined  without  trial  and  error  efforts  by  an  analyst. 

It  has  been  shown  through  several  modeling  examples  that  the  adverse  thermal  distortions  due  to 
unwanted  fabrication  defects  can  be  reduced  through  the  addition  of  designed  geometrical 
appliques.  A  trial-and-error  approach  can  also  be  used  for  simple  structures.  Optimization 
through  numerical  modeling  was  shown  to  provide  a  systematic  approach  to  reducing  the 
unwanted  thennal  distortion  and  thus  to  improve  the  dimensional  stability  of  space  structures. 
This  concept  of ‘anti-distortion  appliques’  has  the  potential  of  improving  space  structures’ 
dimensional  stability  in  a  cost  effective  way. 

This  approach  requires  only  the  ability  to  model  the  structure’s  idealized  thermo-mechanical 
properties,  knowledge  of  the  environmental  stimulus  (i.e.  temperature  change)  that  drives  the 
instability,  and  a  laboratory  measurement  of  the  instability  to  be  eliminated.  However,  only 
measurable  instabilities  can  be  eliminated  through  this  approach.  This  is  in  fact  a  major 
drawback  of  the  approach  since  displacement  measurement  technology  is  not  sufficient  to  meet 
the  needs  of  the  most  demanding  applications. 
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3.0  EFFECTS  OF  MATRIX  CRACKING  ON  FAMINA  BEHAVIOR 


The  complexity  in  analyzing  laminated  composite  structures  arises  from  characteristic  features 
such  as  anisotropy  of  material  properties,  failure  modes,  heterogeneity,  etc.  Generally,  the  fiber 
and  the  matrix  constituents  have  different  properties  and  exhibit  complex  thermo-mechanical 
interactions  in  a  lamina.  Furthennore,  a  composite  laminate  is  made  up  of  unidirectional  fiber 
reinforced  composite  laminae  with  possibly  different  properties,  thicknesses,  and  fiber 
orientations.  The  heterogeneity  in  a  laminate  and  a  lamina  coupled  with  complex  damage  modes 
which  may  induce  further  anisotropy  as  well  as  nonlinearity,  causes  the  modeling  of  post¬ 
damage  material  behavior  to  be  a  significant  challenge. 

3.1  Degradation  Model  Review 

Here,  constitutive  models  or  degradation  models  that  describe  the  damage  state  of  composite 
laminae  were  studied  with  detailed  emphasis  on  understanding  damage  due  to  matrix  cracking  in 
unidirectional  laminates.  To  begin,  a  synopsis  of  a  comprehensive  literature  review  of  various 
degradation  models  implemented  in  progressive  failure  analysis  (see  Appendix  D,  [D.1-D.310]) 
utilizing  the  Finite  Element  Method  (FEM)  and  Classical  Laminate  Theory  (CLT)  is  presented. 
The  review  is  at  this  time  submitted  for  publication  [Akula  and  Gamich  (2007a, b)].  The  models 
were  classified  as  “sudden  degradation  models”  and  “gradual  degradation  models”.  In  a  sudden 
degradation  model,  the  reduction  in  properties  due  to  damage  is  not  a  function  of  other  evolving 
field  variables.  In  a  gradual  degradation  model  the  properties  are  degraded  as  a  function  of  an 
evolving  field  variable(s)  such  as  strain. 

Relatively  few  studies  have  employed  fully  3D  structural  FE  fonnulations  despite  the  importance 
of  out-of-plane  behavior  for  general  progressive  failure  analysis  (PFA).  The  form  of  the 
degradation  model  is  partly  restricted  by  the  dimensionality  of  the  constitutive  behavior  captured 
by  the  structural  model.  With  that  in  mind,  the  governing  equations  involved  in  three- 
dimensional,  two-dimensional,  and  classical  laminate  theory  were  briefly  described  along  with 
the  procedures  for  implementing  the  degradation  models  in  PFA.  Due  to  its  pervasive  use,  all 
models  were  considered  in  the  context  of  the  finite  element  method  (FEM).  Models  described  in 
terms  of  composite  laminate  theory  (CLT)  were  included  because  they  are  readily  implemented 
in  the  FEM.  The  nature  and  success  of  a  degradation  model  is  intimately  tied  to  the  failure 
criterion  used.  Hence,  some  aspects  of  various  failure  criteria  were  also  described  and  mention 
is  made  of  the  specific  failure  criteria  used  with  each  of  the  degradation  models.  Whether  or  not 
the  failure  criterion  explicitly  identifies  each  failure  mode  and  other  means  of  identifying  failure 
modes  are  discussed.  All  models  reviewed  identify  failure  and  implement  degraded  properties  at 
the  lamina  level. 

3.1.1  Sudden  degradation  models 

Due  to  the  explicit  identification  of  failure  modes,  the  Hashin  failure  criterion  [D.24],  and 
several  modified  forms,  have  been  most  popular  for  PFA  studies  [D.55,  D. 58-60,  D. 63-65,  D.68- 
71,  D.73,  D. 155-178,  D. 181-183,  D. 186-189].  Tensor  polynomial  criteria  such  as  Tsai-Wu 
[D.21]  do  not  identify  the  failure  modes.  For  these  criteria  most  authors  define  failure  indices 
(usually  coefficients  of  the  terms  in  the  failure  criterion)  and  assume  the  largest  index  identifies 
the  direction  of  failure  which  in  turn  identifies  the  failure  mode.  A  common  assumption  is  that 
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the  longitudinal  direction  failure  is  a  fiber  failure,  transverse  direction  and  shear  failures  are 
matrix  failure.  Out-of-plane  shear  and  normal  stresses  are  used  when  delamination  is  included. 
Some  degradation  models  avoid  the  issue  of  failure  mode  identification  by  simply  degrading  all 
the  properties  independent  of  the  failure  mode  [D.51,  D. 78-81,  D.l  19-123].  Delamination  was 
considered  by  only  a  few  authors  [D.49,  D.51,  D.52,  D.54,  D.55,  D.63,  D.70,  D.71,  D.73,  D.89, 
D. 176-178]  and  often  it  is  simply  assumed  catastrophic  to  the  structure  upon  initiation  [D.100- 
102,  D.161,  D.162].  Many  authors  conducted  several  PFA  using  different  failure  criteria  [D.49, 
D.79,  D.80,  D.98,  D.99,  D.103,  D.116,  D.117,  D.118,  D.121,  D.174,  D.176,  D.181-189]  and 
some  general  observations  can  be  made.  The  maximum  strain  criterion  is  often  reported  as 
giving  the  poorest  results  while  the  maximum  stress  criterion  is  frequently  associated  with 
unconservative  ultimate  strength  predictions.  The  Tsai-Wu  criterion  is  often  associated  with  the 
most  conservative  results. 

There  exists  a  remarkable  number  and  variety  of  sudden  degradation  models.  Most  sudden 
degradation  models  involve  repeated  solution  of  linear  elastic  FE  models  (or  CLT  equations) 
where  the  linear  material  constants  are  reduced  either  at  an  integration  point  or  in  an  entire 
element  in  some  relation  to  predicted  local  failure  modes.  An  exception  is  when  nonlinear  shear 
behavior  is  included  in  the  initial  material  model.  Usually  the  failure  criterion  and  the 
degradation  model  must  be  modified  to  be  consistent  with  the  nonlinear  shear  material  model. 
Several  authors  describe  such  modeling  approaches  [D.95,  D.129,  D. 163-165,  D. 167-170, 
D.173].  Fiber  failure  is  often  considered  complete  material  failure  and  the  total  ply  discount 
method  is  used  (all  material  moduli  reduced  to  zero).  Some  authors  have  applied  this  method  for 
all  failure  modes  with  some  success  in  certain  situations.  However,  the  general  consensus  is  that 
some  level  of  mode-dependent  degradation  is  necessary  to  achieve  reliable  PFA  predictions  over 
a  wide  range  of  conditions.  Most  often,  the  directionality/mode  of  the  failure  is  identified  and 
associated  material  constants  are  reduced  to  zero  so  that  the  dominant  stress(es)  associated  with 
the  failure  are  completely  relieved.  Many  authors  take  a  mechanistic  view  and  go  beyond  this 
simple  directional  degradation  of  properties  [D.49,  D.52,  D.55,  D.  178].  That  is,  they  associate 
failure  with  crack  surfaces  that  can  no  longer  transmit  out-of-plane  normal  or  shear  stresses  and 
will  degrade  all  the  moduli  associated  with  those  stress  components.  In  all  of  these  situations  the 
lamina  level  degraded  properties  are  typically  used  to  calculate  modified  laminate  properties  as 
part  of  recalculating  the  new  damaged  structure  stiffness.  An  exception  is  where  superposed 
finite  elements  have  been  used  [D. 155,  D.173]  each  superposed  element  represents  a  group  of 
lamina  with  the  same  fiber  orientation.  Then,  the  laminate  stiffness  reduction  is  automatically 
accounted  for  by  the  collective  stiffness  of  the  superposed  elements. 

Relatively  few  authors  have  implemented  partial  degradation  of  material  moduli  where  some 
significant  fraction  of  the  original  modulus  is  retained  [D. 58-60,  D.94,  D.123,  D. 181-183].  The 
residual  stiffness  after  the  prediction  of  failure  typically  depends  on  empirical  observations  or 
micromechanics  model  predictions.  For  example,  transverse  ply  cracks  have  a  quite  localized 
effect  due  to  the  constraining  effect  of  the  adjacent  plies  [D.66,  D.67].  Hence,  even  at  a  fairly 
small  scale  (a  few  ply  thicknesses)  the  ply  will  contribute  to  the  local  laminate  stiffness  in  the 
direction  nonnal  to  the  crack  face  via  shear  transfer.  Physically  viewed,  this  kind  of  damage 
generally  induces  additional  anisotropy  into  the  material  behavior.  For  example,  a  transversely 
isotropic  lamina  may  become  ortho  tropic.  The  implementation  of  such  effects  depends  on 
whether  the  analysis  utilizes  a  fully  3D  constitutive  law  or  some  reduced  fonn. 
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Because  of  the  intuitive  relation  between  the  engineering  material  constants  and  the  physical 
material  behavior,  most  authors  have  described  their  degradation  models  in  terms  of  Young’s 
moduli,  shear  moduli  and  Poisson’s  ratios.  However,  some  degradation  models  were  defined  in 
tenns  of  material  stiffness  matrix  components  Cy  and  Q  .  It  was  shown  using  inverted  relations 

that  these  models  may  have  unintended  consequences  and  may  not  obey  energy  based 
restrictions  on  the  engineering  constants. 

The  most  attractive  feature  of  the  sudden  degradation  models  is  their  simplicity  in 
implementation  due  to  the  binary  nature  of  the  models.  Additional  simplicity  can  be  achieved 
from  the  assumptions  associated  with  the  failure  mode  identification  (e.g.  neglecting 
delamination  or  treating  all  matrix  failures  the  same)  or  simplified  loading  such  as  plane  stress 
conditions.  The  desire  for  simplicity  and  computational  expediency  has  resulted  in  nearly  all  of 
the  models  in  this  review  employing  significant  simplifications  and  therefore  achieving  limited 
fidelity  of  the  PFA. 

3,1.2  Gradual  Degradation  Models 

The  gradual  degradation  models  are  models  where  at  least  one  material  property  was  degraded 
gradually  as  a  function  of  some  evolving  field  variable(s).  These  gradual  degradation  models 
generally  have  the  disadvantage  of  higher  computational  cost  due  to  the  persistent  need  for 
iteration  of  the  equilibrium  equations. 

The  gradual  degradation  models  can  be  separated  into  two  groups.  The  first  group  utilize 
classical  forms  of  failure  criteria  such  as  due  to  Hashin  or  Tsai-Wu,  and  upon  an  prediction  of 
failure,  prescribe  a  fixed  function  (usually  an  exponential  decay)  for  the  property  change  that  is 
driven  by  another  evolving  field  variable  (usually  strain).  These  models  tend  to  be  pragmatic 
and  assign  gradual  degradation  selectively  to  certain  properties  while  applying  a  more  efficient 
sudden  degradation  to  others.  The  second  group  of  models  constructs  the  degradation  model  in 
the  framework  of  classical  damage  mechanics  that  was  originally  developed  for  modeling 
plasticity,  void  growth  and  rupture  in  metals.  A  damage  tensor  is  defined  and  typically  the 
authors  identify  the  need  for  several  damage  parameters  due  to  the  anisotropy  and  multiplicity  of 
failure  mechanisms  that  occur  in  laminated  composites.  Because  of  this  complexity,  these 
models  generally  are  restricted  to  plane  stress  conditions  at  the  lamina  level  and/or  a  single 
failure  mode  such  as  matrix  transverse  cracking.  The  failure  criterion  forms  the  initial  damage 
surface  and  may  be  based  on  a  classical  failure  criterion  but  must  be  recast  in  terms  of  the 
damage  variables.  Often,  the  principles  of  thennodynamics  of  irreversible  processes  are  adhered 
to.  The  details  of  such  models  can  be  significant  and  were  beyond  the  scope  of  this  review.  The 
goal  was  to  outline  the  essentials  so  the  reader  can  identify  basic  differences  or  commonalities  of 
the  various  models. 

As  a  general  observation,  fiber  failure  is  usually  treated  as  complete  failure  in  sudden 
degradation  models  and  the  properties  are  degraded  to  zero.  However,  in  gradual  degradation 
models,  to  simulate  fiber  failure,  several  authors  [D.196,  D.197,  D. 199-201,  D.21 1,  D.220, 
D.222-224]  have  utilized  exponential  decay  functions  based  on  fiber  bundle  theory  [D.198]. 
Depending  upon  the  parameters  involved  in  the  function,  these  may  be  effectively  step  functions 
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or  gradually  degrading  functions.  However,  the  models  were  based  on  mathematical  functions 
of  other  evolving  field  variables  and  hence  were  classified  as  gradual  degradation  models. 

The  degradation  models  that  utilize  damage  tensors  are  not  necessarily  based  on  the 
thennodynamics  of  irreversible  processes  (TIP)  for  the  evolution  of  the  damage  parameters.  As 
the  number  of  damage  variables  increases,  the  complexity  in  formulating  evolution  laws  for  the 
variables  using  TIP  also  increases.  However,  as  the  number  of  damage  variables  increase,  the 
ability  to  capture  different  damage  mode  progressions  increases  as  well.  All  the  formulations 
based  on  TIP  follow  the  same  process  but  do  not  necessarily  involve  the  same  damage 
parameters,  potential  functions,  and  dissipation  potentials.  Therefore,  describing  these  models  in 
detail  is  a  formidable  task  and  was  beyond  the  scope  of  the  review. 


3.2  Matrix  Cracking  and  Prediction  of  Residual  Properties 

For  an  accurate  representation  of  damage,  gradual  reduction  of  properties  with  increasing 
damage  is  important.  In  what  follows  two  different  types  of  cracking  are  characterized.  First,  a 
matrix  failure  mode  characterized  by  matrix  cracks  oriented  perpendicular  to  the  fibers  and 
tenned  as  matrix  normal  cracking  is  described.  A  unit  cell  model  is  devised  based  on  the 
characteristics  of  the  failure  mode.  Residual  properties  of  the  cracked  lamina  with  increasing 
density  of  matrix  normal  cracks  are  estimated  utilizing  the  volume-averaged  stresses  and  strains 
obtained  from  a  finite  element  model  of  the  unit  cell.  Several  characteristics  of  the 
failure/damage  mode  are  examined  through  the  finite  element  model.  Second,  matrix  ply 
cracking,  characterized  by  cracks  that  run  parallel  to  the  fibers  and  are  oriented  in  the  transverse 
direction  of  the  lamina  are  modeled.  This  damage  mode  is  described  and  a  unit  cell  model  for 
cross-ply  laminates  with  cracked  90°  laminae  is  developed  based  on  simplified  assumptions  of 
the  failure  mode.  The  residual  properties  of  a  cracked  lamina  were  estimated  utilizing  volume- 
averaged  stress/strain  infonnation  obtained  from  a  finite  element  model  of  the  laminate  unit  cell. 
The  predictions  of  the  finite  element  model  are  then  compared  with  experimental  data  found  in 
the  literature.  Utilizing  the  finite  element  model,  several  characteristics  of  the  failure  mode  were 
examined.  The  results  serve  to  illustrate  the  constraining  effect  of  the  adjacent  plies  on  the 
residual  properties  of  a  cracked  ply.  A  unit  cell  model  is  also  described  for  a  laminate  with 
cracked  angle  plies.  Again,  a  finite  element  model  of  the  unit  cell  was  utilized  for  estimating  the 
residual  properties  of  the  cracked  angle  plies. 

3.2.1  Matrix  normal  cracking  (MNC) 

In  this  section,  a  finite  element  micromechanics  model  is  described  for  estimating  the  lamina 
properties  assuming  the  constituent  properties  and  the  volume  fractions  are  known.  The  finite 
element  micromechanics  model  is  intended  to  represent  a  continuum  point  in  a  lamina  by 
simulating  a  periodic  unit  cell  that  is  representative  of  the  lamina  behavior.  For  a  thorough 
discussion  of  the  concept  of  representative  volume  and  unit  cell  concepts  the  reader  is  referred  to 
Nemat-Nasser  and  Hori  (1993). 

3. 2. 1.1  FEM  Micromechanics  of  a  unit  cell 

Uniform  hexagonal  fiber  packing  was  assumed  and  the  rectangular  unit  cell  shown  in  Fig.  27 
was  modeled  using  the  FEM.  The  boundary  conditions  for  the  rectangular  model  are  based  on 
the  periodicity  of  the  unit  cell.  That  is,  the  unit  cell  can  be  translated  in  all  the  three  Cartesian 
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coordinate  directions  to  generate  the  composite  lamina.  The  principle  of  periodicity  was  applied 
as  outlined  by  Whitcomb  et  al  (2000). 

For  estimating  the  lamina  extensional  moduli  En  and  Poisson’s  ratios  v]2  and  t>13 ,  the  unit  cell 
is  subjected  to  displacement  gradient  in  the  1-direction.  For  estimating  the  extensional  modulus 
E22  and  Poisson’s  ratio  o2i ,  the  unit  cell  is  subjected  to  a  displacement  gradient  in  the  2- 

direction.  For  estimating  the  lamina  shear  moduli  Gv  ,  G13 ,  and  G23 ,  the  composite  is  subjected 
to  displacement  gradients  that  invoke  volume  average  pure  shear  in  the  unit  cell.  The 
coefficients  of  thermal  expansion  an,  a22 ,  and  a33  are  estimated  by  subjecting  the  composite  to 
a  unifonn  temperature  change. 


1 


Figure  27.  Rectangular  unit  cell  model  with  assumed  hexagonal  fiber  packing 


The  thermo-elastic  properties  of  the  constituents  are  listed  in  Table  10  and  the  corresponding 
predicted  thermo-elastic  properties  of  various  composite  laminae  are  listed  in  Table  11.  The 
properties  of  AS4  and  3501-6  are  obtained  from  Karami  and  Garnich  (2005a).  The  laminae 
properties  are  the  baseline  (undamaged)  properties  for  comparison  with  predictions  of  damaged 
material  properties  that  follow. 
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Table  10.  Thermo-elastic  properties  of  the  constituents 


Property 

AS4 

3501-6 

Eu  (GPa) 

201.0 

4.3 

E22 ,  £33  (GPa) 

13.5 

4.3 

Ol2,  Ul3 

0.22 

0.35 

Gn,  Gn  (GPa) 

95 

1.593 

g23 

0.38 

0.35 

anC^C1) 

-0.7 

55 

«22,  «33  (M  °C  *) 

8.0 

55 

Table  11.  Thermo-elastic  properties  of  composite  laminae 

Property 

Fiber/Matrix 

AS4/ 

3501-6 

AS4/ 

3501-6 

Fiber  volume  fraction 

0.45 

0.66 

En  (GPa) 

92.83 

134 

E22 ,  £33  (GPa) 

7.3 

9.1 

Vl2,  V\3 

0.287 

0.261 

Gn,  Gn  (GPa) 

4.06 

7.3 

G23  (GPa) 

2.482 

3.16 

an  (ju  °C'1) 

0.8402 

-0.0178 

«22,  «33  (M  °C'1) 

42.02 

28.55 

3.2. 1.2  Predicted  Properties  for  a  Lamina  with  MNC 

Matrix  normal  cracks  are  characterized  by  cracks  that  span  the  entire  thickness  of  the  ply  and  are 
oriented  perpendicular  to  the  fibers.  Also,  the  fibers  are  assumed  undamaged  and  still  perfectly 
bonded  to  the  matrix  in  this  damage  mode.  The  rectangular  unit  cell  model  described  earlier  was 
modified  to  incorporate  matrix  normal  cracks.  The  matrix  cracks  are  incorporated  into  the 
rectangular  model  by  changing/removing  some  of  the  periodic  boundary  conditions  on  the  unit 
cell  model  of  an  undamaged  material.  Specifically,  the  crack  planes  perpendicular  to  the  fibers 
are  free  surfaces  on  the  matrix  portion  and  all  constraints  are  removed  from  those  surfaces  (faces 
1  and  2  indicated  in  Fig.  28  with  shaded  regions). 

Damage  in  the  lamina  due  to  matrix  normal  cracks  was  defined  as  the  increase  in  the  number  of 
cracks  or  the  decrease  in  average  crack  spacing.  The  crack  density  parameter  “g”  defined  as  the 
inverse  of  the  crack  spacing  ( Ha  )  relates  the  effective  properties  of  a  cracked  lamina  with 
damage.  However,  to  relate  the  crack  density  to  physical  parameters  of  the  composite,  we  utilize 
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a  normalized  crack  density  parameter  “  E,  ”  defined  as  the  crack  density  times  the  distance 
between  the  centers  of  two  adjacent  fibers. 

In  extracting  the  residual  effective  lamina  properties,  the  volume-averaged  stresses  and  strains 
obtained  from  the  finite  element  unit  cell  model  were  used.  In  describing  the  degraded 
properties,  the  normalized  properties  were  used  for  comparison  purposes.  The  normalized 
properties  denoted  by  a  subscript  “(n)”  are  obtained  by  dividing  the  degraded  properties  with 
their  respective  undamaged  values.  Note  that  the  effective  properties  of  cracked  laminae 
estimated  here  define  the  elastic  behavior  of  the  laminae  for  crack  opening  loads.  For  crack 
closing  loads,  it  is  assumed  that  the  cracked  composite  lamina  damaged  by  MNC  retains  its 
stiffness  and  the  elastic  behavior  is  the  same  as  that  of  an  undamaged  lamina. 


Figure  28.  Unit  cell  model  for  a  lamina  with  MNC  showing  the  crack  surfaces  in  grey 


To  study  the  influence  of  varying  fiber  volume  fraction  on  the  effective  properties  of  a  cracked 
lamina,  two  AS4/3501-6  composites  with  fiber  volume  fractions  of  0.45  and  0.66  were  studied. 
Fig.  29  shows  the  variation  of  the  nonnalized  extensional  moduli  E...  , ,  E...  , ,  and  E...  ,  with 

nonnalized  crack  density  (£,).  Fig.  30  shows  the  variation  of  the  normalized  shear  moduli  Gr(n), 

G13(h),  and  G23(h)  with  nonnalized  crack  density.  Fig.  31  shows  the  variation  of  normalized 

Poisson’s  ratios  ol2(n),  u13(n),  and  o23(n)  with  nonnalized  crack  density.  Fig.  32  shows  the 

variation  of  CTE  a,,,  , ,  a...  , ,  and  .  with  nonnalized  crack  density  of  a  AS4/3501-6  lamina 

1 1(h)  ?  22(h)  ’  33(h)  J 
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with  0.45  fiber  volume  fraction  whereas  Fig.  33  shows  the  variation  of  CTE  aU{n),  cc22(n),  and 
.  of  a  AS4/3501-6  lamina  with  0.66  fiber  volume  fraction. 

33  («) 


% 


Figure  29.  Variation  of  normalized  extensional  moduli  En(n),  E22(n),  and  E33(n)  with 
normalized  crack  density  of  AS4/3501-6  composite  laminae  with  volume  fractions  of  0.45 
and  0.66  and  damaged  with  MNC 


Figure  30.  Variation  of  normalized  shear  moduli  Gi2(n),  Gi3(n>,  and  G23(n)  with  normalized 
crack  density  of  a  AS4/3501-6  composite  laminae  with  volume  fractions  of  0.45  and  0.66 
and  damaged  with  MNC 
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Figure  31.  Variation  of  normalized  Poisson’s  ratios  t)i2(n),  t)i3(n)>  and  l)23(n)  with  normalized 
crack  density  of  an  AS4/3501-6  composite  laminae  with  volume  fractions  of  0.45  and  0.66 
and  damaged  with  MNC 
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Figure  32.  Variation  of  normalized  coefficients  of  thermal  expansion  aii(„),  Ct22(n),  and  G(33(n) 
with  normalized  crack  density  of  an  AS4/3501-6  composite  lamina  with  a  volume  fraction 
of  0.45  and  damaged  with  MNC 
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Figure  33.  Variation  of  normalized  coefficients  of  thermal  expansion  an(„),  d22(n),  and  G(33(n) 
with  normalized  crack  density  of  an  AS4/3501-6  composite  lamina  with  a  fiber  volume 
fraction  of  0.66  and  damaged  with  MNC 


3. 2. 1.3  Discussion  of  MNC 

Matrix  normal  cracking  in  unidirectional  composite  laminae  was  studied  for  AS4/3501-6 
composite  laminae  in  two  different  fiber  volume  fractions.  From  the  analysis,  it  was  observed 
that  composite  lamina  retains  transverse  isotropy  after  damage  due  to  MNC.  This  is  because  the 
plane  of  the  matrix  cracks  coincides  with  the  plane  of  transverse  isotropy  of  the  lamina.  It  was 
also  observed  that  all  the  properties  of  the  lamina  were  influenced  by  matrix  nonnal  cracks.  This 
is  because  of  the  Poisson’s  ratio  interaction  between  the  intact  fibers  and  the  damaged  matrix. 

MNC  primarily  influence  the  behavior  of  the  composite  in  the  fiber  direction  because  of  the 
orientation  of  the  cracks.  However,  since  the  fibers  are  intact  in  this  failure/damage  mode  for  a 
composite  system  with  a  high  ratio  of  fiber  and  matrix  modulus  in  the  fiber  direction,  MNC 
moderately  altered  the  composite  modulus.  Hence,  it  was  observed  that  matrix  nonnal  cracks 
did  not  significantly  alter  the  elastic  behavior  of  the  composite.  The  maximum  reduction  in 
elastic  moduli  of  a  composite  due  to  MNC  was  less  than  10%  even  at  very  high  crack  densities. 
However,  the  coefficient  of  thermal  expansion  in  the  fiber  direction  for  graphite  fiber  composites 
was  strongly  influenced  by  MNC.  Note,  however,  the  thermal  expansion  for  the  fiber  direction 
is  very  small  so  that  small  absolute  changes  correspond  to  large  percentage  changes. 

Based  on  the  analysis  presented  in  this  section  it  may  be  concluded  that  although  MNC  does 
affect  lamina  properties,  the  effect  is  not  large  compared  to  other  failure/damage  modes.  Also, 
this  damage  mode  is  difficult  to  detect  since  the  intact  libers  generally  close  the  cracks.  Also, 
many  matrix  materials  have  strain  capability  exceeding  that  of  the  fibers  so  this  failure  mode 
does  not  occur  in  many  materials.  An  exception  would  be  for  a  large  temperature  decrease  in 
graphite  systems,  as  in  space  applications,  where  the  negative  axial  CTE  of  the  fibers  causes 


44 


large  tensile  stress/strain  in  the  matrix  even  in  the  absence  of  mechanical  loads.  As  a  result  of 
these  observations  this  failure/damage  mode  has  seen  almost  no  attention  in  the  literature. 

3.2.2  Matrix  Ply  Cracking  (MPC) 

Consider  a  [0/90/90/0]T  laminate  subjected  to  a  tensile  load  in  as  shown  in  Fig.  34.  Here,  the  x- 
direction  corresponds  to  the  fiber  direction  in  the  0°  plies.  After  sufficient  loading,  the  90°  plies 
develop  cracks  (as  depicted  in  Fig.  34)  that  form  parallel  to  the  fibers  and  span  the  length  and 
thickness  of  the  plies.  This  classic  failure/damage  mode  is  tenned  matrix  ply  cracking.  Even 
though  this  phenomenon  was  first  addressed  in  the  context  of  cross-ply  laminates,  this  failure 
mode  is  most  often  the  first  failure  mode  observed  in  most  laminates  under  multi-axial  loading 
and  especially  in  extreme  low  temperature  environments  as  in  space  applications. 


Figure  34.  Matrix  microcracking  in  a  [0/90/90/0]  laminate 


The  characteristics  of  MPC  were  investigated  by  Garrett  and  Bailey  (1977a,b),  Parvizi  et  al. 
(1978),  Parvizi  and  Bailey  (1978),  Bailey  et  al.  (1979),  Bader  et  al.  (1979)  and  Bailey  and 
Parvizi  (1981)  in  a  series  of  experiments  on  cross-ply  laminates  made  up  of  glass  reinforced  and 
carbon  reinforced  unidirectional  laminae.  They  reported  whitening  of  the  transverse  plies  was 
prior  to  the  transverse  crack  initiation.  Studies  on  glass  fiber  reinforced  epoxy  matrix  and 
polyester  matrix  composites  revealed  that  this  whitening  effect  was  associated  with  fiber/matrix 
debonding.  Upon  further  loading,  the  laminates  exhibited  multiple  cracks  in  the  transverse  plies 
eventually  forming  a  saturated  crack  distribution  with  almost  even  spacing.  The  rate  of  crack 
formation  was  rapid  after  the  first  crack  and  slowed  with  increasing  load.  The  cracks  often 
penetrated  into  the  adjacent  plies  but  were  hindered  by  the  fibers. 

Based  on  the  above-described  experimental  observations,  the  mechanism  of  matrix  ply  cracking 
may  be  summarized  as  follows.  The  fiber  debonds  and  other  matrix  sub-microcracks  associated 
with  the  whitening  eventually  coalesce  to  form  microcracks  that  span  a  few  fiber  diameters. 
Upon  continued  straining,  the  microcracks  grow  to  form  transverse  matrix  cracks  that  span  the 
entire  thickness  and  width  of  the  plies.  On  further  loading,  multiple  cracks  are  formed  in  the 
transverse  plies.  The  multiple  crack  formation  eventually  reaches  a  maximum,  characterized  by 
crack  spacing  that  is  nearly  uniform.  Highsmith  and  Reifsnider  (1982)  investigated  this  crack 
formation  and  termed  this  maximum  crack  density  as  a  Saturated  Damage  State. 

Pradhan  et  al.  (1999b)  postulated  that  the  minimum  crack  spacing  in  the  90°  laminae  of  a 
laminate  (prior  to  the  failure  of  the  laminate)  is  typically  of  the  order  of  the  thickness  of  the  90° 
plies.  Even  though  the  thickness  of  the  cracked  plies  is  a  major  factor  influencing  the  minimum 
crack  spacing,  experimental  data  obtained  from  three  sources,  Groves  et  al.  (1987),  Lee  and 
Hong  (1993),  and  Joffe  and  Vama  (1999)  suggests  that  the  properties  and  relative  orientations  of 
the  cracked  lamina  and  the  adjacent  laminae  also  influence  the  minimum  crack  spacing. 
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The  past  three  decades  have  seen  numerous  studies  of  the  thermo-mechanical  behavior  of 
laminates  damaged  by  matrix  ply  cracks.  Several  analytical  methods  were  utilized  in  studying 
matrix  ply  cracking  of  which  the  finite  element  method  has  been  utilized  not  only  to  study  the 
stress  distribution  in  the  plies,  crack  opening  displacements,  etc.,  but  also  to  estimate  the  residual 
thermo-mechanical  properties  of  a  cracked  laminate/lamina.  In  the  following,  results  obtained 
from  several  finite  element  models  are  compared  with  those  obtained  by  various  researchers  both 
analytically  and  experimentally  for  cracked  laminates/laminae. 

In  analyzing  matrix  ply  cracks,  typically  the  response  of  a  laminate  with  increasing  matrix  cracks 
is  studied.  In  particular,  the  normalized  laminate  modulus  forms  the  basis  for  characterizing  the 
effect  of  matrix  ply  cracks.  However,  as  the  fibers  are  generally  stiffer  than  the  matrix,  the 
laminate  modulus  is  dominated  by  the  undamaged  fiber  direction  lamina  modulus. 

Consequently,  the  small  changes  in  modulus  caused  by  matrix  ply  cracks  are  difficult  to  measure 
accurately.  For  numerical  illustration  purposes,  consider  a  [0/90]5  cross-ply  laminate  made  up 

of  composite  laminae  with  a  En/  E12  ratio  of  9.  A  rule  of  mixtures  calculation  assuming  80% 
reduction  in  modulus  E22  for  the  cracked  90°  plies,  the  resulting  laminate  modulus  reduces  by 

only  8%.  Experimentally  capturing  this  small  change  in  the  laminate  modulus  requires  highly 
accurate  techniques. 

Based  on  review  of  the  literature,  a  unit  cell  model  utilizing  the  finite  element  method  was 
pursued  to  study  the  influence  of  MPC  on  the  effective  properties  of  a  cracked  lamina.  The 
primary  objective  was  to  understand  the  thermo-mechanical  behavior  of  cracked  90°  plies  with 
increasing  MPC.  Since  the  material  properties  define  the  behavior  of  a  lamina,  the  effects  of 
various  parameters  such  as  the  thickness  of  the  cracked  plies,  the  position  of  the  cracked  plies, 
the  orientation  of  the  neighboring  plies,  etc.  on  the  effective  thermo-mechanical  properties  of  a 
cracked  lamina  were  investigated.  In  this  pursuit,  some  previously  established  results  were 
examined. 

3.2.2. 1  Unit  Cell  Model  for  Cracked  90°  Laminae 

Both  two-dimensional  and  three-dimensional  finite  element  models  have  been  utilized  in  the  past 
to  study  MPC.  The  unit  cell  geometries  and  the  boundary  conditions  imposed  on  the  models 
were  based  on  periodicity  derived  from  characteristic  assumptions  of  MPC.  In  designing  the 
present  unit  cell  model  for  the  cracked  lamina,  the  following  simplifying  assumptions  were 
employed. 

1 .  The  cracks  span  the  entire  length  of  the  cracked  lamina. 

2.  The  cracks  span  the  entire  thickness  of  the  cracked  ply,  are  orthogonal  to  the  ply,  and 
do  not  penetrate  into  the  adjacent  plies. 

3.  The  cracks  in  the  lamina  are  uniformly  spaced. 

4.  The  crack  faces  are  flat  and  run  parallel  to  the  fibers. 

Based  on  the  above  assumptions  for  matrix  ply  cracking,  the  arrangement  of  the  matrix  cracks  in 
cracked  laminae  can  be  depicted  as  shown  in  Fig.  35(a)  and  35(b)  for  interior  and  outer  cracked 
plies  respectively.  These  arrangements  are  for  cross-ply  laminates  with  cracks  in  the  90° 
laminae.  Note  that  Fig.  35  depicts  the  cross-sectional  front  view  of  a  cracked  laminate  where  the 
curved  dotted  lines  represent  crack  faces. 
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Figure  35.  (a)  Cracked  laminate  with  periodic  matrix  ply  cracks  in  the  90°  interior  plies  (b) 
Cracked  laminate  with  periodic  matrix  ply  cracks  in  the  outer  90°  plies 


In  view  of  the  idealizations  shown  in  Fig.  35,  Fig.  36  depicts  possible  unit  cell  geometries  based 
on  periodicity  for  a  cracked  cross-ply  laminate  with  an  outer  90°  ply.  Similar  unit  cells  may  be 
developed  for  a  centered  cracked  lamina.  Note  that  “L”  is  the  crack  spacing  (distance  between 
two  cracks)  and  “T”  is  the  thickness  of  the  laminate. 

The  unit  cell  depicted  by  Figures  36(b)  and  36(c)  can  be  reflected  and  translated  in  the  plane  of 
the  laminate  to  obtain  the  entire  laminate  with  uniformly  spaced  matrix  ply  cracks.  For  increased 
computational  efficiency,  these  reduced  unit  cell  models  may  be  utilized  for  studying  MPC. 
However,  the  required  boundary  conditions  to  be  imposed  on  the  finite  element  model  of  these 
unit  cells  are  more  complicated  for  reduced  unit  cells.  Here,  for  simplicity  a  model  of  the  full 
unit  cell  (Fig.  36(a))  was  utilized. 
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Figure  36.  (a)  Full  unit  cell  for  a  cracked  cross-ply  laminate  (b)  Half  unit  cell  for  a  cracked 
cross-ply  laminate  (c)  Quarter  unit  cell  for  a  cracked  cross-ply  laminate 


The  full  three-dimensional  volume  modeled  to  represent  a  cross-ply  laminate  with  cracks  in  the 
outer  plies  is  depicted  in  Fig.  37.  Note  that  the  thickness  of  the  laminate  “T”  is  denoted  by  “c” 
and  the  length  of  the  unit  cell  “L”  (also  the  crack  spacing)  is  denoted  by  “a”,  whereas  the  width 
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of  the  unit  cell  is  denoted  by  “b”.  Note  that  the  width  “b”  is  arbitrary  as  there  are  no  variations  in 
the  v-direction. 
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Figure  37.  A  three-dimensional  unit  cell  model  for  a  cracked  cross-ply  composite  laminate 
with  matrix  ply  cracks  in  the  outer  plies 

The  three-dimensional  finite  element  model  was  used  to  estimate  the  effective  residual  properties 
of  a  cracked  lamina.  The  boundary  conditions  for  the  unit  cell  models  depicted  in  Figures  37  and 
38  were  based  on  periodicity.  Two  sets  of  boundary  conditions  were  required;  one  for  periodicity 
in  the  plane  of  the  laminate  and  a  second  for  periodicity  in  all  the  three  Cartesian  directions. 


Figure  38.  A  unit  cell  model  for  a  cracked  laminate  with  matrix  ply  cracks  in  the  90°  plies 


48 


Finally,  the  thermal  deformation  of  the  cracked  ply  was  considered.  Based  on  the  assumption 
that  the  matrix  cracks  are  oriented  such  that  the  crack-face-nonnal  is  oriented  in  the  2-direction 
the  coefficients  of  thermal  expansion  (CTE)  parallel  to  the  crack  face  (in  the  1  and  3  directions) 
are  assumed  unaffected  by  the  cracks.  Therefore,  it  is  assumed  that  only  a%2  changes  due  to 
matrix  ply  cracking.  Note  that  the  influence  of  MPC  on  lamina  CTE  does  not  seem  to  have  been 
previously  investigated. 

Four  different  load  cases  are  utilized  to  estimate  the  properties.  The  first  load  case  simulates  a 
three-dimensional  normal  stress/strain  state  in  the  lamina  to  estimate  E%2 ,  u21 ,  and  u23 .  The 
second  load  case  creates  inplane  shear  stress  in  the  composite  from  which  the  effective  inplane 
shear  modulus  Gf2  was  estimated.  The  third  load  case  consists  of  a  thennal  load  and  was  used  to 
estimate  the  residual  CTE  a22 .  The  fourth  load  case  simulated  the  out-of-plane  shear  stress  to 
estimate  the  effective  out-of-plane  shear  modulus  G*  . 


3.2. 2.2  Volume-averaged  Properties  of  a  Cracked  Lamina 

Due  to  periodicity,  the  stress/strain  state  in  the  unit  cell  is  representative  of  the  average 
stress/strain  response  of  a  larger  volume.  Utilizing  the  volume-averaged  stress/strain  information 
obtained  from  the  finite  element  model,  the  residual  properties  of  a  cracked  lamina  were 
estimated.  The  general  procedure  to  obtain  the  volume-averaged  stresses  and  strains  for  the 
deformed  configuration  of  the  cracked  lamina  is  described  below.  Note  that  the  analysis  was 
based  on  the  assumptions  of  small-displacement  fonnulation  and  linear  elastic  behavior  of  the 
damaged  composite  laminae. 

To  validate  the  present  models  predictions  were  compared  with  experimental  data  obtained  from 
three  sources,  Groves  et  al.  (1987),  Lee  and  Hong  (1993),  and  Joffe  and  Varna  (1999).  Table  12 
shows  the  measured  properties  of  the  undamaged  laminae  for  the  three  materials.  Note  that  the 
thickness  (h)  reported  in  Table  12  is  for  one  ply  thickness  and  the  u23  are  assumed  values  for  the 

AS4/3502  and  the  glass/epoxy.  Also,  prior  to  MPC  the  laminae  materials  were  assumed 
transversely  isotropic. 


Table  12.  Properties  of  different  uncracked  lamina 


Data 

Material 

En 

(G  Pa) 

F 

^22 

(G  Pa) 

U  2 

^23 

(G  Pa) 

h 

(mm) 

Groves 

AS4/3502 

144.78 

9.58 

0.31 

0.4 

4.785 

0.127 

Lee 

P3051-F05 

127.8 

9.4 

0.28 

0.52 

4.2 

0.05 

Vama 

Glass/Epoxy 

44.73 

12.76 

0.297 

0.42 

5.8 

0.144 

For  a  range  of  crack  densities,  Fig.  39  compares  the  calculated  laminate  modulus  with  the 
experimental  data  obtained  from  Groves  et  al.  (1987).  In  this  and  several  figures  that  follow,  (E) 
indicates  experimental  values  whereas  (A)  indicates  analytical  finite  element  predictions.  Also, 
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the  subscript  ‘(»)’  denotes  the  normalized  values  of  the  respective  properties  obtained  by 
dividing  the  degraded  property  by  its  undamaged  value.  Fig.  40  and  Fig.  41  show  the  variation 
of  the  normalized  lamina  modulus  E2,(n)  with  increasing  crack  density  for  the  laminates  studied 

experimentally  by  Groves  et  al.  (1987).  Note  that  one  of  the  cross-ply  laminate  sequences 
considered  in  the  study  by  Groves  et  al.  (1987)  is  a  [0/90/  ()].s  laminate  with  cracks  in  the  inner 
90°  cracked  laminae.  The  cracked  laminae  are  termed  inner  because  the  cracked  lamina  was 
located  in  between  two  intact  0°  plies. 

Fig.  42  shows  a  comparison  of  the  normalized  laminate  modulus  EX(n)  obtained  from  the 

predictions  of  the  finite  element  unit  cell  model  with  the  experimental  data  obtained  from  Lee 
and  Hong  (1993).  Fig.  43  shows  the  variation  of  the  nonnalized  cracked  lamina  modulus  E22{n) 

with  increasing  crack  density  corresponding  to  the  laminate  test  cases  defined  in  Fig.  42.  Fig.  44 
and  Fig.  45  show  the  comparison  of  the  normalized  laminate  modulus  and  the  normalized 
laminate  Poisson’s  ratio  obtained  from  the  analytical  finite  element  model  and  the  experimental 
data  from  Joffe  and  Varna  (1999).  Fig.  46  shows  the  comparison  of  the  normalized  lamina 
modulus  E22{n)  with  experimental  results  from  Joffe  and  Vama  (1999). 

The  analytical  predictions  of  normalized  laminate  modulus  EX(n)  shown  in  Fig.  39  (4.8)  and  42 

were  obtained  using  the  cracked  lamina  modulus  and  a  rule-of-mixtures  fonnula.  The  analytical 
predictions  of  normalized  laminate  modulus  and  normalized  laminate  Poisson’s  ratio  shown  in 
Fig.  44  and  45  were  obtained  from  Classical  Laminate  Theory  (CLT)  [Hyer  (1998)].  Note  that 
the  analytical  normalized  laminate  moduli  obtained  from  the  rule-of-mixtures  and  CLT  are 
approximately  the  same  for  cross-ply  laminates.  The  experimental  normalized  lamina  moduli 
shown  in  Fig.  40,  41,  42,  and  46  were  obtained  by  reverse  engineering  using  the  laminate 
modulus  and  the  rule-of-mixtures  fonnula. 

From  Fig.  39  through  46,  as  a  general  observation,  the  results  obtained  from  the  finite  element 
model  compared  well  with  the  experimental  results.  However,  in  cases  where  the  0°  plies 
severely  dominate  the  stiffness  (e.g.  Fig.  41)  the  comparisons  were  poor  for  the  nonnalized 
laminate  moduli  and  the  normalized  lamina  moduli.  This  difference  may  be  partly  attributed  to 
the  fact  that  the  cracked  plies  cause  a  small  laminate  stiffness  change  that  is  difficult  to  measure 
with  accuracy.  The  most  credible  experimental  data  provides  the  best  agreement  and  it  was 
concluded  that  the  present  models  do  an  excellent  job  of  predicting  degraded  lamina  properties. 
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Figure  39.  A  comparison  of  normalized  laminate  modulus  Ex(n)  of  cross-ply  laminates 
obtained  from  the  finite  element  model  with  experimental  results  obtained  from  Groves  et 
al.  (1987) 


Figure  40.  Normalized  laminae  modulus  E22(n)  obtained  from  finite  element  model  for 
cross-ply  laminates  compared  to  experimental  data  from  Groves  et  al.  (1987) 
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Figure  41.  Normalized  laminae  modulus  E22(n)  obtained  from  finite  element  model  for 
cross-ply  laminates  compared  to  experimental  data  from  Groves  et  al.  (1987) 


Figure  42.  A  comparison  of  normalized  laminate  modulus  Ex(n)  of  cross-ply  laminates 
obtained  from  the  finite  element  model  with  experimental  results  obtained  by  Lee  and 
Hong  (1993) 
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Figure  43.  Normalized  laminae  modulus  E22(n)  obtained  from  finite  element  model  for 
cross-ply  laminates  compared  to  experimental  data  from  Lee  and  Hong  (1993) 


Figure  44.  A  comparison  of  normalized  laminate  modulus  Ex(n)  of  cross-ply  laminates 
obtained  from  the  finite  element  model  with  experimental  results  obtained  from  Joffe  and 
Varna  (1999) 
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Figure  45.  A  comparison  of  normalized  laminate  Poisson’s  ratio  vxy(n)  obtained  from  the 
finite  element  model  with  experimental  results  obtained  from  Joffe  and  Varna  (1999) 


Figure  46.  Normalized  laminae  modulus  E22(n)  obtained  from  the  finite  element  model  for 
cross-ply  laminate  compared  to  experimental  data  from  Joffe  and  Varna  (1999) 
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In  extracting  the  residual  properties  of  a  cracked  lamina  for  a  given  crack  density,  it  was 
observed  that  the  degraded  lamina  modulus  Ef2  and  the  Poisson’s  ratios  o2]  and  degrade  by 
the  same  percentage  as  a  function  of  crack  density.  However,  the  inplane  shear  modulus  and 
out-of-plane  shear  modulus  degrade  by  different  percentages. 

Utilizing  the  finite  element  unit  cell  model  for  a  cracked  lamina  it  was  also  observed  that  the 
CTE  of  the  cracked  lamina  is  not  affected  by  matrix  ply  cracking.  This  is  explained  by  the  fact 
that  thermal  deformation  is  a  stress-free  state.  Any  change  in  thermal  expansion  behavior  must 
come  from  a  mechanical  response  of  the  crack.  Since  the  degraded  mechanical  properties 
already  account  for  the  mechanical  response  of  the  crack  during  thermal  deformation,  the 
effective  CTE  of  the  cracked  lamina  remains  unchanged.  As  a  consequence,  the  remaining 
discussions  are  restricted  to  the  effective  mechanical  properties  of  a  cracked  lamina. 

3. 2.2. 3  Effect  of  Thickness  of  the  Cracked  Lamina 

Fig.  40  shows  the  variation  of  nonnalized  lamina  modulus  E22{n)  with  increasing  crack  density 
for  three  laminates;  [0  /  90]  s ,  [0  /  90  2  ]s  ,  and  [0  /  90  ,  ]s  where  the  thickness  of  the  centered  90° 

ply  group  is  increased  systematically.  Note  that  these  laminates  were  the  experimental  test  cases 
investigated  by  Groves  et  al.  (1987).  From  Fig.  40  it  is  clear  that  with  increasing  thickness  of  the 
inner  90°  plies,  the  modulus  of  the  cracked  lamina  decreases  for  a  given  crack  density.  This  is 
because  the  thicker  ply  groups  result  in  longer  cracks  and  larger  zones  of  stress  relief  around  the 
crack.  Furthennore,  the  thickness  of  the  adjacent  0°  plies  is  kept  constant  so  the  constraining 
effect  on  the  cracks  becomes  relatively  less  with  increased  thickness  of  the  cracked  ply  group. 

To  further  investigate  the  thickness  effect  a  [0  /  90  ].v  laminate  with  cracks  in  the  centered  90° 

plies  was  modeled.  The  plies  were  made  up  of  Silenka  E-glass/epoxy  laminae.  The  properties  of 
different  undamaged  laminae  with  0.15  mm  thickness  were  obtained  from  Mayes  and  Hansen 
(2004)  and  are  shown  in  Table  13. 

Table  13,  Thermo-elastic  properties  of  undamaged  composite  laminae 


Property 

Silenka 

E-glass/Epoxy 

T3 00/Epoxy 

Highsmith 

Glass/Epoxy 

En  (GPa) 

45.763 

138 

41.7 

E22  ,  £33  (GPa) 

16.167 

11 

13 

Vl2,  Ul3 

0.2786 

0.28 

0.3 

Gn,  Gu  (GPa) 

5.8626 

5.5 

3.4 

G23  (GPa) 

5.7415 

3.9286 

4.6429 

an  (ju  °C1) 

8.6 

-1.0 

n/a 

a.22,  033  (ju  °C1) 

26.15 

26.0 

n/a 

A  normalized  crack  density  (defined  as  the  crack  density  multiplied  by  the  crack  length)  was 
used  to  compare  the  effects  of  cracked  layer  thickness  on  property  degradation.  Two  cross-ply 
laminates  were  analyzed  here  for  the  same  normalized  crack  densities.  Note  that  the  cross-ply 
laminates  with  the  highest  and  the  lowest  thicknesses  previously  studied  were  considered  here. 


55 


Fig.  47  shows  the  variation  of  normalized  lamina  properties  E22(n) ,  v2l(n) ,  and  v2 3(n)  for  two 

cross-ply  laminates  with  cracked  centered  90°  laminae.  Fig.  48  and  Fig.  49  show  the  variation  of 
normalized  lamina  shear  moduli  G12(n)  and  G23(n)  respectively. 

As  similarly  reported  by  Tao  and  Sun  (1996),  from  Fig.  47  through  49,  it  is  evident  that  in  terms 
of  normalized  crack  density  the  behavior  of  a  cracked  lamina  is  not  significantly  influenced  by 
the  thickness.  This  is  particularly  true  for  E22(n) ,  u21(n) ,  u23(n) ,  and  G12(b)  where  the  maximum 

difference  was  less  than  5%  for  the  two  thicknesses. 

3.2. 2.4  Effect  of  Position  of  the  Cracked  Lamina 

Tao  and  Sun  (1996)  analytically  estimated  the  effective  properties  of  a  cracked  lamina  by 
varying  the  position  of  the  cracked  90°  plies  in  a  [0m  /90n  /  0?]r  laminate.  They  reported  that  the 

position  of  the  cracked  laminae  did  not  alter  the  estimated  properties.  However,  the  cracked 
lamina  was  never  an  outer  ply  in  their  study.  Symmetric  cracking  was  assumed  so  both  the  90° 
laminae  in  the  laminate  are  cracked  as  depicted  by  Fig.  34. 

It  was  found  that  the  maximum  difference  in  the  predicted  effective  properties  E22(n) ,  u2l(n) ,  and 

u23(„)  f°r  the  outer  and  centered  plies  was  less  than  5%  .  The  difference  was  zero  for  the  inplane 

shear  modulus.  For  the  out  of  plane  shear  modulus  an  exterior  ply  crack  model  was  not 
developed. 
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Figure  47.  Variation  of  normalized  lamina  properties  E22(n),  t)23(„),  and  n2i(„)  with 
normalized  crack  density  for  two  cross-ply  laminate  configurations  with  cracks  in  centered 
90°  laminae 


56 


Figure  48.  Variation  of  normalized  lamina  shear  modulus  Gi2(n>  with  normalized  crack 
density  for  two  cross-ply  laminate  configurations  with  cracks  in  centered  90°  laminae 


Figure  49.  Variation  of  normalized  lamina  shear  modulus  G23(n>  with  normalized  crack 
density  for  two  cross-ply  laminate  configurations  with  cracks  in  centered  90°  laminae 
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3. 2.2. 5  Effect  of  Adjacent  Ply  Properties 

The  effects  of  thickness,  fiber  orientation,  and  mechanical  properties  of  the  adjacent  plies  on  the 
effective  mechanical  properties  of  a  cracked  lamina  were  all  similar.  In  each  of  these  cases  the 
changing  stiffness  of  the  adjacent  plies  was  found  to  have  a  small  influence  on  the  effective 
properties  of  the  cracked  plies. 

For  example,  Fig.  50  shows  the  variation  of  the  normalized  laminae  properties  F\2(n) ,  u21(b)  ,  and 

o23(n}  with  increasing  fiber  orientation  of  the  adjacent  plies.  Fig.  5 1  and  52  show  the  variation  of 

the  normalized  lamina  shear  modulus  G ...  ,  and  nonnalized  out-of-plane  shear  modulus  G’  ,  , 

with  increasing  fiber  orientation  of  the  adjacent  plies  respectively.  These  results  indicate  what 
turned  out  to  be  a  universal  trend  where  adjacent  plies  that  contribute  more  constraint  (resistance 
to  crack  opening  deformation)  result  in  slightly  less  effective  degradation  of  stiffness  of  the 
cracked  plies.  Note  that  for  the  inplane  shear  properties  it  is  adjacent  ±45  plies  that  provide  the 
most  constraint  against  shear  deformation. 

The  general  conclusion  was  that  for  a  particular  deformation  mode  (e.g.  extension  or  shear),  if 
the  uncracked  ply  properties  (e.g.  orientation  or  modulus)  are  increased  to  be  more  resistant  to 
that  deformation  mode  then  the  corresponding  effective  property  of  the  cracked  ply  group  will 
increase.  This  is  understood  by  observing  that  the  softening  of  the  cracked  ply  group  is  the  result 
of  the  added  deformation  around  the  crack.  Stiffer  adjacent  plies  tend  to  resist  and  minimize  this 
added  deformation  through  a  constraining  effect  and  thus  increase  the  effective  properties  of  the 
cracked  ply  group. 
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Figure  50.  Variation  of  normalized  lamina  properties  E22(n)»  i)23(n),  and  i)2i(„)  of  cracked 
centered  laminae  for  various  fiber  orientations  of  the  adjacent  plies 
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Figure  51.  Variation  of  normalized  lamina  shear  modulus  Gi2(n)  of  cracked  centered 
laminae  for  various  fiber  orientations  of  the  adjacent  plies 
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Figure  52.  Variation  of  normalized  lamina  shear  modulus  G23(n)  of  cracked  centered 
laminae  for  various  fiber  orientations  of  the  adjacent  plies 
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4.0  MULTI-SCALE  DAMAGE  MODELING  OF  COMPOSITES 


In  the  analysis  of  composite  structures  using  numerical  methods  such  as  the  finite  element 
method  (FEM),  a  composite  structure  is  viewed  as  a  homogenized  material  with  anisotropic 
properties.  The  analysis  at  this  level  is  termed  macroscale  analysis.  Even  though  a  composite 
laminate  is  assumed  to  be  a  homogeneous  material  at  the  macroscale,  a  laminate  is  made  up  of 
laminae  stacked  at  different  orientations.  Thus,  the  laminate  properties  are  influenced  by  the 
properties  of  the  laminae  and  their  orientations.  In  view  of  this,  analysis  of  individual  laminae  is 
also  considered  in  the  analysis  of  composite  structures  and  the  analysis  at  the  lamina  level  is 
referred  to  here  as  mesoscale  analysis.  However,  uni-directional  composite  laminae  consist  of 
reinforcing  fibers  in  a  continuous  matrix  and  are  characterized  by  a  fiber  volume  fraction,  the 
microstructure,  and  the  properties  of  the  fiber  and  matrix  constituents.  Thus,  the  properties  of  a 
composite  structure  depend  on  the  constituent  (fiber  and  matrix)  properties.  Based  on  this, 
analysis  at  the  constituent  level,  referred  to  here  as  microscale  analysis,  is  sometimes  utilized  to 
correlate  constituent  level  material  behavior  to  structural  level  analysis. 

Due  to  the  fact  that  a  composite  structure  is  made  up  of  fiber  and  matrix,  damage  in  a  composite 
structure  is  the  result  of  damage  of  the  constituents.  However,  in  most  damage  analyses,  only 
the  macroscale  and  the  mesoscale  are  considered.  That  is,  damage  in  laminated  composite 
structures  made  up  of  unidirectional  laminae  is  typically  defined,  measured,  and  analyzed  as  a 
reduction  of  thermo-mechanical  properties  of  the  composite  laminae.  This  is  further  evident 
from  the  review  of  degradation  models  discussed  earlier.  The  underlying  assumption  for 
defining  damage  at  the  mesoscale  level  is  that  a  composite  lamina  is  viewed  as  a  homogenized 
material.  However,  the  homogenized  properties  of  a  composite  lamina  depend  on  the  constituent 
properties.  Therefore,  it  is  logical  to  represent  damage  in  a  composite  structure  as  a  damage  of 
the  constituent(s)  for  a  more  fundamental  representation  of  damage  in  a  composite  structure. 

Here,  utilizing  an  extraction  process,  the  effective  damaged  constituent  properties  that  represent 
the  damaged  lamina  properties  were  reverse  engineered  utilizing  a  finite  element 
micromechanics  model  and  Multicontinuum  Technology  (MCT).  This  extraction  process 
requires  damaged  composite  lamina  properties  and  some  of  the  constituent  properties.  With  the 
effective  properties  of  the  constituents  available,  MCT  can  then  be  used  to  analyze  damage  in  a 
composite  structure  in  terms  of  damage  of  the  constituents.  The  fundamentals  of  MCT  are  well 
documented  in  the  literature  [Garnich  and  Hansen  (1997a,b)]  and  are  not  repeated  here.  The 
essential  hypothesis  of  the  technology  is  that  each  constituent  in  a  composite  can  be  represented 
with  a  separate  superposed  continuum  field  that  is  rigorously  tied  to  that  of  the  composite. 

MCT  requires  composite  properties  obtained  from  experiments  that  are  related  to  be  consistent 
with  those  of  a  micromechanics  model.  The  rectangular  finite  element  micromechanics  model 
described  for  hexagonal  fiber  packing  was  utilized  here  to  supplement  MCT  with  the  lamina 
properties. 

4.1Effective  Constituent  Properties  using  MCT  and  Micromechanics 

A  procedure  to  obtain  the  constituent  properties  utilizing  the  composite  properties,  MCT,  and  a 
finite  element  micromechanics  model  is  described.  The  only  other  requirement  for  this  process 
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is  that  the  properties  of  one  of  the  constituents  are  known.  The  basic  iterative  procedure  is 
depicted  in  Fig.  53.  The  “A  matrix”  referred  to  in  Fig.  53  is  the  reduced  fonn  of  a  fourth  order 
tensor  that  relates  the  constituent  strains  [Garnich  and  Hansen  (1997a)]. 

Using  this  method,  a  degraded  lamina  with  cracks  can  be  described  as  a  continuum  with  a 
combination  of  reduced  and  undamaged  constituent  properties.  The  method  was  implemented 
for  two  possible  matrix  damage  modes;  matrix  normal  cracking  (MNC)  and  matrix  ply  cracking 
(MPC).  With  this  extraction  process,  the  gradual  degradation  of  effective  properties  for  the  two 
failure  modes  expressed  as  a  reduction  of  lamina  properties  are  described  as  a  reduction  of 
constituent  properties. 

The  degraded  properties  of  a  lamina  with  matrix  normal  cracks  were  previously  estimated  using 
a  micromechanical  model.  The  laminae  analyzed  were  AS4/3501-6  with  0.45  and  0.66  fiber 
volume  fractions  The  transverse  properties  E22 ,  u23 ,  and  G23  remained  unchanged  with 

increasing  crack  density.  Using  the  extraction  procedure  the  effective  matrix  properties  that 
contribute  to  the  reduction  of  the  remaining  thermo-elastic  properties  of  the  lamina  due  to  the 
matrix  normal  cracks  were  estimated.  A  lamina  damaged  by  MNC  retains  its  plane  of  isotropy 
with  intact  fibers.  The  fiber  properties  are  assumed  to  remain  unchanged  and  satisfactory  results 
were  achieved. 

For  damage  due  to  matrix  ply  cracks  it  was  found  that  even  though  the  cracks  damage  only  the 
matrix  it  was  necessary  to  degrade  both  the  fiber  and  matrix  properties  in  order  to  achieve  lamina 
properties  matching  those  predicted  by  the  micromechanics.  A  [0/9(W0]t  cross-ply  laminate 
made  up  of  E-glass/MY750  composite  laminae  with  single  lamina  thickness  of  0.15  mm  was 
analyzed  with  matrix  cracks  in  the  inner  90°  plies.  The  properties  of  the  composite  lamina  and 
the  properties  of  the  Silenka  E-glass  fibers  and  the  MY750/HY917/DY063  epoxy  matrix  that 
constitute  the  composite  lamina  (with  0.6  fiber  volume  fraction)  are  given  in  Table  14.  Fig.  54 
shows  the  variation  of  degraded  lamina  properties  (normalized  with  their  respective  un-damaged 
values)  with  increasing  crack  density  “  X  ”  (cracks  per  mm).  Note  that  the  normalized  properties 
E22 ,  u23 ,  and  o2X  degrade  by  the  same  percentage  and  are  shown  with  a  single  curve. 


Table  14.  Thermo-elastic  Properties  of  the  Constituents  and  the  Lamina 


Property 

E-Glass 

Epoxy 

E-Glass/Epoxy 

En  (GPa) 

73 

4.85 

45.76 

E22 ,  E33  (GPa) 

73 

4.85 

16.167 

Vl2,  «13 

0.235 

0.36 

0.2786 

Gn,  Gn  (GPa) 

29.55 

1.78 

5.86 

U23 

0.235 

0.36 

5.74 

an  (ju  °Cl) 

6.6 

49 

8.6 

0-22,  «33  (jU  °C‘) 

6.6 

49 

26.15 
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r  > 

Stop. 

v  y 


Step  6. 

Use  micromechanics  model  and  latest 
estimate  of  constituent  properties  to 
generate  composite  properties. 


Step  7. 

Update  A  matrix  using  solved  constituent 
properties  from  Step  5  and  composite 
properties  from  Step  6.  Return  to  Step  4. 


Figure  53.  Flowchart  of  the  extracting  process 
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Figure  54.  Variation  of  normalized  lamina  properties  with  crack  density  for  a  lamina  with 
matrix  ply  cracks 


The  effective  properties  of  the  constituents  that  coincide  with  the  reduced  lamina  properties  with 
MNC  were  estimated  are  shown  in  Fig.  55.  The  validity  of  this  observation  is  realized  by 
considering  that  the  average  stress  in  the  fiber  must  decrease  while  the  average  strain  is 
increasing  due  to  damage.  The  only  way  this  can  happen  is  if  the  fiber  stiffness  is  reduced  along 
with  the  matrix  stiffness. 

To  estimate  the  effective  constituent  properties,  effective  constituent  strains  that  correspond  to 
the  effective  strains  of  the  composite  (including  the  crack)  were  required  along  with  the  volume- 
averaged  stresses.  The  effective  strains  of  the  constituents  are  unknown  along  with  some  of  the 
properties  of  the  constituents.  Therefore,  additional  conditions  were  required  to  solve  for  the 
constituent  strains  which  can  then  be  used  to  estimate  the  unknown  constituent  properties.  To 
realize  a  solvable  system  it  was  assumed  that  the  ratio  of  the  constituent  strains  remains  the  same 
before  and  after  the  fonnation  of  cracks. 

It  was  also  assumed  that  properties  parallel  to  a  crack  are  not  affected  by  the  crack.  Therefore, 

E2 2 ,  l>23  ,  u2l ,  Gn ,  and  G2J  were  assumed  to  change  for  both  the  fibers  and  the  matrix  and  the 

resulting  properties  were  calculated.  Fig.  55  shows  the  variation  of  fiber  (indicated  by  “F”)  and 
matrix  (indicated  by  “M”)  normalized  properties  with  increasing  crack  density.  The  nonnalized 
values  of  Gn  and  G23  were  found  to  be  the  same  for  the  fiber,  matrix,  and  the  cracked  lamina. 

This  is  explained  by  the  fact  that  the  relationship  between  the  lamina  shear  moduli  and 
constituent  shear  moduli  is  linear  and  independent  of  other  properties. 
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Figure  55.  Variation  of  effective  matrix  and  fiber  properties  with  crack  density  for  a 
lamina  with  matrix  ply  cracks 


4.2  Discussion  of  Effective  Constituent  Property  Modeling 

The  process  utilized  to  extract  effective  constituent  properties  that  relate  damage  in  the  lamina  as 
damage  in  the  constituents  was  described.  Thereafter,  the  process  was  implemented  for  two 
different  possible  matrix  failure  modes,  namely,  matrix  normal  cracks  and  matrix  ply  cracks. 

For  the  matrix  normal  cracking  damage  mode,  damage  in  the  lamina  was  described  as  damage  of 
the  matrix  with  the  fiber  properties  unchanged.  Furthermore,  based  on  the  characteristics  of  the 
damage  mode,  it  was  assumed  that  the  damaged  matrix  is  transversely  isotropic.  The  reduced 
properties  of  the  matrix  material  coupled  with  the  intact  fiber  properties  successfully  describe  the 
damage  state  of  the  cracked  laminae  with  MNC. 

The  second  failure/damage  mode  analyzed  was  matrix  ply  cracking.  In  contrast  to  MNC,  for  this 
damage  mode  properties  of  both  the  fibers  and  the  matrix  were  degraded  to  represent  the  damage 
in  the  lamina.  To  solve  for  the  effective  constituent  properties  it  was  necessary  to  assume  that 
the  ratio  of  fiber  and  the  matrix  strains  remained  the  same  before  and  after  damage.  This  is  a 
reasonable  assumption  since  the  fibers  remain  embedded  in  the  matrix.  With  this  assumption  it 
was  possible  to  relate  the  damage  in  the  lamina  due  to  matrix  ply  cracks  as  damage  of  the 
constituents. 

Using  the  constituent  property  extraction  process,  the  damaged  constituents  can  be  replaced  by 
continuum  constituents  but  with  degraded  properties.  Furthermore,  with  the  effective  constituent 
properties  that  represent  the  damage  in  a  lamina  available,  Multi-continuum  technology  can  be 
used  to  estimate  the  degraded  continuum  response  of  the  composite  and  the  constituents  in  a 
structural  analysis.  This  provides  a  means  to  incorporate  constituent  level  damage  into  a 
structural  level  damage  analysis  thus  bridging  the  mesoscale  and  microscale  damage  levels. 
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APPENDIX  A 


PYTHON  CODE  FOR  MNC  MICROMECHANICS  MODEL 


A  computer  code  written  in  Python  for  use  in  ABAQUS  Version  6.6  is  listed  below.  The  code 
consists  of  three  python  script  files,  namely,  “ runjnnc.py ”,  “model jnnc.py”  and  “ bcjnnc.py ”. 
The  entire  script  is  run  by  executing  the  statement  “execfile(‘run_mnc.py’)”  in  ABAQUS 
command  window.  This  runs  the  script  file  “ run  jnnc.py ”  which  executes  the  other  two  files 
“model jnnc.py”  and  “ bcjnnc.py ”  in  sequence. 

The  file  “run  jnnc.py”  is  the  central  file  that  controls  the  creation  and  execution  of  the  model. 
The  file  has  the  parameters  such  as,  the  material  definition,  volume  fraction,  crack  density  or 
crack  spacing,  etc.  that  are  required  to  define  the  unit  cell  model  that  simulates  a  point  in  a 
lamina  with  matrix  nonnal  cracks.  With  the  required  parameters  defined,  the  file 
“model jnnc.py”  is  executed  which  creates  the  micromechanics  model  in  ABAQUS  and 
produces  an  input  file.  This  input  file  has  all  node  and  element  information  defining  the  model. 
The  file  “bcjnnc.py”  then  modifies  the  input  file  by  adding  the  periodic  boundary  conditions  or 
kinematic  constraints  for  the  nodes  in  the  models.  This  requires  identifying  the  boundary  nodes 
on  the  model.  The  model  is  then  run  in  ABAQUS  using  the  input  file  by  “run  jnnc.py” . 


Central  program:  runjnnc.py 

global  zeta,  ped,  vfl,  sq3,  sq2,  pi,  a,  b,  c,  d,  seed_l 
global  theta,  vf,  r  fiber,  RR,  f  mat,  m  mat,  case 

##  crack  density  of  the  lamina 
##  zeta  =  1/crack  spacing 
zeta  =  0.2 

##  depth  of  the  model, 
ped  =  1.0/zeta 

#  vf  =  fiber  volume  fraction 
vfl  =0.66 

##  constants 
sq3  =  sqrt (3.0) 
sq2  =  sqrt (2.0) 
pi  =  acos  (-1.0) 

## 

#  a  =  width  of  the  rectangular  model 
a  =  1.0 

#  c  =  half  the  width  of  the  model 
c  =  a/2.0 

#  b  =  length  of  the  model 
b  =  sq3  *  a 

#  d  =  half  the  width 
d  =  b/2.0 

#  the  volume  fraction  is  approximated  using  a  polygon  so 

#  the  vf  is  changed 

seed  1=8##  number  of  elements  on  the  radius. 

theta  =  pi/ (3 . 0*seed_l) 

vf  =  pi*vf 1/ (3 . 0*sin (theta) *seed  1) 
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## 

##  r  fiber  =  radius  of  the  fiber  for  the  given  volume  fraction 
r  fiber  =  round (sqrt (a*a*vf*sq3  /(2.0*pi)),  12) 

RR  =  r_fiber  /sq3 

##  fiber  and  matrix  material  indications 
##  these  numbers  are  material  numbers  minus  one. 

##  for  example  material  1  is  indicated  by  zero  and  so  on. 
f  mat  =  2 
m  mat  =  3 

##  indicate  whether  the  material  has  suffered  matrix  failure 
matrix  failure  =  1 
##  Note  1  -  yes,  0  -  no 

##  the  temperature  range  for  thermal  loading 
deltat  =  -200 

## - 

##  material  database 
mat  name  =  [0] 

##  material  -  1 
NAME  =  ' Boron ' 
temp  =  [1,  NAME] 

Ell,  E22 ,  E33  =  399.896E9,  399.896E9,  399.896E9 

G12 ,  G13,  G23  =  166.6233E9,  166.6233E9,  166.6233E9 

NU12 ,  NU13,  NU23  =  0.2,  0.2,  0.2 
All,  A22 ,  A3 3  =  16.2E-6,  16.2E-6,  16.2E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 

mat  name  =  mat  name  +  [temp] 

##  material  -  2 
NAME  =  'Aluminum' 
temp  =  [2,  NAME] 

Ell,  E22 ,  E33  =  72.36737E9,  72.36737E9,  72.36737E9 

G12 ,  G13,  G23  =  27.20577E9,  27.20577E9,  27.20577E9 

NU12 ,  NU13,  NU23  =  0.33,  0.33,  0.33 
All,  A22 ,  A3 3  =  23.4E-6,  23.4E-6,  23.4E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 

mat  name  =  mat  name  +  [temp] 

##  material  -  3 
NAME  =  'AS 4 ' 
temp  =  [3,  NAME] 

Ell,  E22 ,  E33  =  201E9,  13.5E9,  13.5E9 

G12 ,  G13,  G23  =  95E9,  95E9,  4.9E9 

NU12 ,  NU13,  NU23  =  0.22,  0.22,  0.3775 
All,  A22 ,  A3 3  =  -0.7E-6,  8.0E-6,  8.0E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 
mat  name  =  mat  name  +  [temp] 

##  if  you  need  to  add  more  materials  then  add  before  this  line. 

##  material  -  4 
NAME  =  ' M3501-6 ' 
temp  =  [4,  NAME] 

Ell,  E22 ,  E33  =  4.3E9,  4.3E9,  4.3E9 

G12 ,  G13,  G23  =  1.5926E9,  1.5926E9,  1.5926E9 

NU12 ,  NU13,  NU23  =  0.35,  0.35,  0.35 
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All,  A22,  A33  =  55.0E-6,  55.0E-6,  55.0E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 
mat  name  =  mat  name  +  [temp] 

##  if  you  need  to  add  more  materials  then  add  before  this  line. 

##  end  of  database 

del  mat  name [mat  name . index ( 0 ) ] 

from  abaqus  import  * 

from  abaqusConstants  import  * 

from  section  import* 


import 

part 

import 

regionToolset 

import 

displayGroupMdbToolset 

as  dgm 

import 

material 

import 

section 

import 

sketch 

import 

assembly 

import 

step 

import 

interaction 

import 

load 

import 

mesh 

import 

visualization 

import 

xyPlot 

import 

displayGroupOdbToolset 

as  dgo 

import 

j  ob 

import 

math 

##  creating  the  model  based  on  the  crack  density. 

GO  =  0 

####  building  the  model 

##  note  that  the  path  of  the  file  needs  to  be  specified, 
exec  open (' c : /model  mnc.py') 

####  writing  the  boundary  conditions 
exec  open ( ' c : /bc_mnc . py ' ) 

global  case 
GO  =  1 
num  =  0 
if (GO  ==  1)  : 

for  num  in  range  (7)  : 
case  =  num  +  1 
if  (case  ==  1 ) : 

print  '  ' 

print  'Runnning  the  File  -  Case  1  Ell' 
hexmodel  =  mdb . JobFromlnputFile (name  =  'Run  case  1', 
inputFileName  =  'Case  l.inp') 
hexmodel . submit ( ) 
hexmodel . waitForCompletion ( ) 

AA  =  session . openOdb (name= ' c : /Run  case  1 . odb ' ) 

##  the  path  needs  to  be  changed  according  to  the  directory  in 
which  the  program  is  run 

import  visualization 

session . viewports [' Viewport :  1'] . setValues (displayedOb j ect=AA) 
session . viewports [ ' Viewport :  1 ' ] . odbDi splay . setDef ormedVariable ( 
variableLabel= ' U ' ) 
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session . viewports [ ' Viewport :  1 ' ] • odbDi splay . setPrimaryVariable ( 
variableLabel= 'S',  outputPosition=INTEGRATION_POINT, 
refinement= (COMPONENT,  ' S 1 1 ' )  ) 

elif  (case  ==  2 ) : 

print  '  ' 

print  'Runnning  the  File  -  Case  2  E22 ' 
hexmodel  =  mdb . JobFromlnputFile (name  =  'Run  case_2 ' , 
inputFileName  =  'Case  2.inp') 
hexmodel . submit ( ) 
hexmodel . waitForCompletion ( ) 

print  'Case  -  2  :  Transverse  direction  loading' 

AA  =  session . openOdb (name= ' c : /Run  case  2 . odb ' ) 

elif  (case  ==  3) : 

print  '  ' 

print  'Runnning  the  File  -  Case  3  G12 ' 
hexmodel  =  mdb . JobFromlnputFile (name  =  'Run  case  3', 
inputFileName  =  ' Case_3 . inp ' ) 
hexmodel . submit ( ) 
hexmodel . waitForCompletion ( ) 
print  'Case  -  3  :  Inplane  Shear  loading' 

AA  =  session . openOdb (name= ' c : /Run  case  3 . odb ' ) 

elif  (case  ==  4 ) : 

print  '  ' 

print  'Runnning  the  File  -  Case  4  G23' 
hexmodel  =  mdb . JobFromlnputFile (name  =  'Run  case_4 ' , 
inputFileName  =  'Case  4. inp') 
hexmodel . submit ( ) 
hexmodel . waitForCompletion ( ) 

print  'Case  -  4  :  out-of-plane  13  Shear  loading' 

AA  =  session . openOdb (name= ' c : /Run  case  4 . odb ' ) 

elif  (case  ==  5) : 

print  '  ' 

print  'Runnning  the  File  -  Case  5  Thermal' 
hexmodel  =  mdb .  JobFromlnputFile  (name  =  'Run  case__5  '  , 
inputFileName  =  'Case  5. inp') 
hexmodel . submit ( ) 
hexmodel . waitForCompletion ( ) 
print  'Case  -  5  :  Temperature  loading' 

AA  =  session . openOdb (name= ' c : /Run  case  5 . odb ' ) 

elif  (case  ==  6) : 

print  '  ' 

print  'Runnning  the  File  -  Case  6  G13' 
hexmodel  =  mdb . JobFromlnputFile (name  =  'Run  case  6', 
inputFileName  =  'Case  6. inp') 
hexmodel . submit ( ) 
hexmodel . waitForCompletion ( ) 
print  'Case  -  6  :  G13  loading' 

AA  =  session . openOdb (name= ' c : /Run  case  6 . odb ' ) 

elif  (case  ==  7 ) : 

print  '  ' 

print  'Runnning  the  File  -  Case  7  E33' 
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hexmodel  =  mdb . JobFromlnputFile (name  =  'Run  case  7', 
inputFileName  =  'Case  7.inp') 
hexmodel . submit ( ) 
hexmodel . waitForCompletion ( ) 
import  visualization 
print  'Case  -  7  :  E33  loading' 

AA  =  session . openOdb (name= ' c : /Run  case  7 . odb ' ) 


else : 

print  '  ' 

print  '  Only  Modeling  ' 


Code  for  creating  the  model  in  ABAQUS:  model_mnc.py 


## - 

hexmodel  =mdb . Model (name= ' Hex  Pack  Model') 
def  hexpack  part ( ) : 

#  coordinates  of  the  vertices 

rectcd  =  ( (a/2 . 0 , b/2 . 0 ) ,  ( -a/2 . 0 , b/2 . 0 ) ,  ( -a/2 . 0 , -b/2 . 0 ) ,  (a/2 . 0, -b/2 . 0) , 

(0.0, 0.0) ) 

s  =  hexmodel . Sketch (name= ' rect ' ,  sheetSize  =  200.0) 

#  creating  the  rectangle. 

s . rectangle (pointl=rectcd [1],  point2=rectcd[3]) 
hexpart  =  hexmodel . Part (name= ' recta ' ,  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

hexpart . BaseSolidExtrude ( sketch=s ,  depth=ped) 


## - 

def  hexpack  pit()  : 

p2  =  hexmodel . parts [' recta  '  ] 
fa  =  p2. faces 
c  =  p2. cells 
e  =  p2. edges 

face_2  =  fa.findAt(  (0.0, 0.0, 0.0)  ) 

sketch  2  =  hexmodel . Sketch (name= ' sketch  2',  sheetSize=200 . 0) 
sketch_2 . CircleByCenterPerimeter ( (0 . 0, 0 . 0) ,  (r_fiber, 0) ) 
faceset_l  =  (face_2) 

p2 . PartitionFaceBySketch ( f aces=f aceset  1,  sketch=sketch  2) 

face  3  =  fa.findAt(  (-a/2.0+r  fiber/2.0,  b/2.0-r  fiber*sq3/2 . 0, 0)  ) 
sketch  3  =  hexmodel . Sketch (name= ' sketch  3',  sheetSize=200 . 0) 
sketch_3 . CircleByCenterPerimeter ((-a/2.0,b/2.0),  (-a/2. 0+r_f iber , b/2 . 0 ) ) 

faceset_2  =  (face_3) 

p2 . PartitionFaceBySketch ( faces=f aceset  2,  sketch=sketch  3) 

face  4  =  fa. f indAt ( (a/2 . 0-r  f iber/2 . 0 , b/2 . 0-r  fiber*sq3/2 . 0, 0) ) 
sketch  4  =  hexmodel . Sketch (name= ' sketch  4',  sheetSize=200 . 0) 
sketch_4 . CircleByCenterPerimeter ((a/2.0,b/2.0),  (a/2.0, b/2. 0-r_f iber ) ) 

faceset_3  =  (face_4) 

p2 . PartitionFaceBySketch ( faces=f aceset  3,  sketch=sketch  4) 

face  5  =  fa . f indAt ( (a/2 . 0-r  f iber/2 . 0 , -b/2 . 0+r  fiber*sq3/2 . 0, 0) ) 
sketch  5  =  hexmodel . Sketch (name= ' sketch  5',  sheetSize=200 . 0) 
sketch_5 .CircleByCenterPerimeter ( (a/2 . 0, -b/2 . 0) ,  (a/2 . 0, -b/2 . 0+r_fiber) ) 

faceset  4  =  (face  5) 
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p2 . PartitionFaceBySketch ( faces=f aceset  4,  sketch=sketch  5) 

face  6  =  f a . f indAt ( ( -a/2 . 0+r  f iber/2 . 0 , -b/2 . 0+r  fiber*sq3/2 . 0, 0) ) 
sketch  6  =  hexmodel . Sketch (name= ' sketch  6',  sheetSize=200 . 0) 
sketch_6 . CircleByCenter Perimeter ( (-a/2.0, -b/2. 0) ,  ( -a/2+r_f iber , -b/2 . 0 ) ) 

faceset_5  =  (face_6) 

p2 . PartitionFaceBySketch ( faces=f aceset  5,  sketch=sketch  6) 

cell_2  =  c. findAt ( (a/4 . 0+r_fiber/2 . 0,  0,  0)) 
edge_l  =  e . findAt (( -a/2 . 0 ,  0,  0)) 

edge_2  =  e . findAt (( -a/2 . 0+r_f iber/2 . 0 ,  b/2.0  -r_fiber*sq3/2 . 0, 0) ) 
edge_3  =  e . findAt (( 0 , b/2 . 0 , 0 ) ) 

edge_4  =  e . findAt ( (a/2 . 0-r_f iber/2 . 0 ,  b/2 . 0-r_fiber*sq3/2 . 0, 0) ) 
edge_5  =  e . findAt ( (a/2 . 0 , 0 , 0 ) ) 

edge_6  =  e . findAt ( (a/2 . 0-r_f iber/2 . 0 ,  -b/2 . 0+r_fiber*sq3/2 . 0, 0) ) 
edge_7  =  e . findAt (( 0 , -b/2 . 0 , 0 ) ) 

edge_8  =  e . findAt (( -a/2 . 0+r_f iber/2 . 0 ,  -b/2 . 0+r_fiber*sq3/2 . 0, 0) ) 
edge_sweep_l  =  e . findAt (( -a/2 . 0 , -b/2 . 0 , ped/2 . 0 ) ) 
edgeset_l  =  (edge_l,  edge_2,  edge_3,  edge_4,  edge_5, 
edge_6,  edge_7,  edge_8) 
cellset_2  =  (cell_2) 

p2 . PartitionCellBySweepEdge (cells=cellset_2 ,  edges=edgeset_l , 
sweepPath=edge_sweep_l ) 

cell_l  =  c . findAt (( 0 . 0 , 0 . 0 , 0 . 0 ) ) 
cellset_l  =  (cell_l) 

edge_9  =  e. findAt ( (r_f iber, 0 . 0, 0 . 0) ) 
edgeset_2  =  (edge_9) 

edge_sweep_2  =  e . findAt (( -a/2 . 0 , -b/2 . 0 , ped/3 . 0 ) ) 
p2 . PartitionCellByExtrudeEdge (cells=cellset  1,  edges=edgeset  2, 
line=edge  sweep  2,  sense=FORWARD) 

p  =  mdb . models [' Hex  Pack  Model ']• parts [' recta ' ] 

session . viewports [ ' Viewport :  1 ' ]  . setValues (displayedOb j  ect=p) 


def  hexpack  section () : 

p2  =  hexmodel . parts [' recta ' ] 
cnew  =  p2. cells 

hexmodel . HomogeneousSolidSection (name= ' fiber  section ' , 
material=mat  name [ f  mat] [1]) 

hexmodel . HomogeneousSolidSection (name= ' matrix  section ' , 
material=mat  name [m  mat] [1]) 

c_l  =  cnew . findAt ( (a/2 . 0 , b/2 . 0 , ped/3 . 0 ) ) 
c_2  =  cnew . findAt (( -a/2 . 0 , b/2 . 0 , ped/3 . 0 ) ) 
c_3  =  cnew . findAt (( -a/2 . 0 , -b/2 . 0 , ped/3 . 0 ) ) 
c_4  =  cnew . findAt ( (a/2 . 0 , -b/2 . 0 , ped/3 . 0 ) ) 
c_5  =  cnew . findAt (( 0 , 0 , 0 ) ) 

c_6  =  cnew. findAt ( (a/4 . 0  +  r_fiber/2.0,  0,  ped/3. 0) ) 

c_cells  =  cnew . findAt (( (a/2 . 0 , b/2 . 0 , ped/3 . 0 ),) , 

( (-a/2.0, b/2.0, ped/ 3.0),), 

( (-a/2.0, -b/2.0, ped/ 3.0),), 

( (a/2.0, -b/2.0, ped/ 3.0),), 

( (0,0,0) , ) ) 

regil  =  p2 . Set (cells=c_cells,  name= ' Set_l ' ) 

p2 . SectionAssignment (region=regil,  sectionName= ' fiber  section') 
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c_cells  =  cnew. findAt ( ( (a/4 . 0  +  r_fiber/2.0,  0,  ped/3.0),),) 
regi2  =  p2 . Set (cells=c_cells,  name= ' Set_2 ' ) 

##  regi2  =  regionToolset . Region (cells=c_cells ) 

p2 . SectionAssignment (region=regi2 ,  sectionName= ' matrix  section ' ) 

#  creating  the  coordinate  system  for  the  material  orientation  of  the  fibers 

CS  1  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN, 
origin= ( 0 . , 0 . , 0 . ) , 

pointl= (0 . , 0 . , ped) ,  point2= (a/2 . 0 , 0 . , ped) ,  name='CSl') 
csl  =  CS_1 . id 

#  assigning  the  MCS 

p2 . assignMaterialOrientation ( region  =  regil,  localCsys=p2 . datums [csl ] ) 
p2 . assignMaterialOrientation ( region  =  regi2,  localCsys=p2 . datums [csl ] ) 


# - 

def  hexpack  mater ()  : 
num  mat  =  0 

##  creating  lamina  material 

for  inte  in  range ( len (mat  name)) : 

algraphiteepoxy=hexmodel .Material (name=mat  name [inte] [1]) 
propes  =  (mat  name [inte] [2],  mat  name [inte] [3],  mat  name [inte] [4], 
mat_name [inte] [5],  mat_name [inte] [6],  mat_name [ inte ] [7], 
mat_name [inte] [8],  mat_name [inte] [9],  mat_name [inte] [10]) 
algraphiteepoxy .Elastic (table= (propes,  ),  type=ENGINEERING  CONSTANTS) 
CTEprop  =  (mat  name [inte]  [11],  mat  name [inte]  [12], 
mat_name [inte] [13]) 

algraphiteepoxy . Expansion (type=0RTH0TR0PIC,  table=  (CTEprop, ) ) 
num  mat  =  num  mat  +  1 
print  num  mat,  Materials  created' 

## - - - 

def  hexpack  partition  1()  : 

p2  =  hexmodel . parts [' recta ' ] 
f  =  p2. faces 

#  the  inner  hexagon 

X  =  sq3*RR/2.0 

Y  =  RR/2.0 

innhexcoord  =  (  (X, Y) ,  (X, -Y) ,  (0, -RR) ,  ( -X, -Y) ,  ( -X, Y) ,  (0, RR) ,  (X, Y) ) 
face_l  =  f . findAt (( 0 .,  0 .,  0  .),  ) 

sketch  1  =  hexmodel . Sketch (name= ' sketch  7',  sheetSize=200 . 0) 
for  int  in  range (len (innhexcoord) -1)  : 

sketch  1 . Line (pointl  =  innhexcoord [int] ,  point2=  innhexcoord [ int+1 ] ) 
p2 . PartitionFaceBySketch ( f aces=f ace  1,  sketch=sketch  1) 

#  - 1 - :— 

X  =  a/2.0 

Y  =  (sq3/2.0  -  1.0/sq3)*a 
XX  =  a/sq3 

outhexcoord  =  ((X,Y),  (X, -Y) ,  (0,  -XX),  (-X,-Y),  (-X,Y),  (0,  XX),  (X,  Y) ) 

face_2  =  f . findAt (( 0 , XX, 0 ), ) 

sketch  2  =  hexmodel . Sketch (name= ' sketch  8',  sheetSize=200 . 0) 
for  int  in  range (len (outhexcoord) -1) : 

sketch  2 . Line (pointl  =  outhexcoord [int] ,  point2=  outhexcoord [ int+1 ] ) 
p2 . PartitionFaceBySketch ( faces=f ace  2,  sketch=sketch  2) 

# - 1 - :— 

#  four  fibers  this  is  fiber  1  go  anti  clockwise  to  check  starting  at  (a/2, 
b/2) 
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X  =  -sq3*RR/2.0  +  a/2.0 
Y  =  sq3  *a  /2 . 0 
Xl=  X 

Y1  =  -RR/2.0  +  sq3  *  a  /2.0 

X2  =  a/2.0 

Y2  =  sq3*a/2.0  -  RR 

X3  =  a/2.0 

Y3  =  b/2.0 

face_3  =  f . f indAt ( (XI , Y1 , 0 . )  ,  ) 

fibe_p  =  ( (X, Y) ,  (XI, Yl),  (X2,Y2),  (X3,  Y3),  (X,Y)) 

sketch  3  =  hexmodel . Sketch (name= ' sketch  9',  sheetSize=200 . 0) 

for  int  in  range ( len ( fibe  p)-l) : 

sketch  3 . Line (pointl  =  fibe_p[int],  point2=  f ibe_p [ int+1 ] ) 
p2 . PartitionFaceBySketch ( faces=face_3 ,  sketch=sketch  3) 


#  fiber  2 

X  =  sq3*RR/2.0  -  a/2.0 
Y  =  sq3  *a  /2 . 0 
Xl=  X 

Yl  =  -RR/2.0  +  sq3  *  a  /2.0 

X2  =  -a/2.0 

Y2  =  sq3*a/2.0  -  RR 

X3  =  -a/2.0 

Y3  =  b/2.0 

face_4  =  f . f indAt ( (XI , Yl , 0 .)  ,  ) 

fibe_p  =  ( (X, Y) ,  (XI, Yl),  (X2,Y2),  (X3,  Y3),  (X,Y)) 

sketch  4  =  hexmodel . Sketch (name= ' sketch  10',  sheetSize=200 . 0) 

for  int  in  range ( len ( fibe  p)-l) : 

sketch  4 . Line (pointl  =  fibe  p[int],  point2=  fibe  p[int+l]) 
p2 . PartitionFaceBySketch ( faces=f ace  4,  sketch=sketch  4) 


#  fiber  3 

X  =  -sq3*RR/2.0  +  a/2.0 
Y  =  -sq3  *a  /2.0 
Xl=  -sq3*RR/2.0  +  a/2.0 
Yl  =  RR/2.0  -  sq3  *  a  /2.0 

X2  =  a/2.0 

Y2  =  -sq3*a/2.0  +  RR 
X3  =  a/2.0 
Y3  =  -b/2.0 

face_5  =  f . f indAt ( (XI , Yl , 0 .)  ,  ) 

fibe_p  =  ( (X, Y) ,  (XI, Yl),  (X2,Y2),  (X3,  Y3),  (X,Y)) 

sketch  5  =  hexmodel . Sketch (name= ' sketch  11',  sheetSize=200 . 0) 

for  int  in  range ( len ( fibe  p)-l) : 

sketch  5 . Line (pointl  =  fibe  p[int],  point2=  fibe_p [ int+1 ] ) 
p2 . PartitionFaceBySketch ( faces=f ace  5,  sketch=sketch  5) 


#  fiber  4 

X  =  sq3*RR/2.0  -  a/2.0 

Y  =  -sq3  *a  /2.0 

Xl=  sq3*RR/2.0  -  a/2.0 

Yl  =  RR/2.0  -  sq3  *  a  /2.0 

X2  =  -a/2.0 

Y2  =  -sq3*a/2.0  +  RR 

X3  =  -a/2.0 

Y3  =  -b/2.0 

face  6  =  f . f indAt ( (XI , Yl , 0 .) ,  ) 
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fibe_p  =  ( (X, Y) ,  (XI, Yl),  (X2,Y2),  (X3,  Y3),  (X,Y)) 

sketch  6  =  hexmodel . Sketch (name= ' sketch  12',  sheetSize=200 . 0) 

for  int  in  range ( len ( fibe  p)-l) : 

sketch  6 . Line (pointl  =  fibe  p[int],  point2=  f ibe_p [int+1 ] ) 
p2 . PartitionFaceBySketch ( f aces=f ace  6,  sketch=sketch  6) 

# - 1 - —  - 

X  =  0 

Y  =  b/2.0 

XI  =  0 

Yl  =  a/sq3 
X2  =  0 

Y2  =  b/4.0  +  a/ (2*sq3) 

face  7  =  f . f indAt ( (X2 , Y2 , 0 . ) , ) 

fibe_p  =  ( (X, Y) , (XI, Yl) ) 

sketch  7  =  hexmodel . Sketch (name= ' sketch  13',  sheetSize=200 . 0) 
for  int  in  range (len (fibe_p) -1) : 

sketch  7 . Line (pointl  =  fibe  p[int],  point2=  fibe  p[int+l]) 
p2 . PartitionFaceBySketch ( faces=f ace  7,  sketch=sketch  7) 

### - - - r - 

X  =  0 

Y  =  -b/2.0 

XI  =  0 

Yl  =  -a/sq3 
X2  =  0 

Y2  =  -b/4.0  -  a/ (2*sq3) 
face_8  =  f . f indAt ( (X2 , Y2 , 0 .), ) 
fibe_p  =  ( (X, Y) , (XI, Yl) ) 

sketch  8  =  hexmodel . Sketch (name= ' sketch  14',  sheetSize=200 . 0) 
for  int  in  range ( len ( fibe  p)-l) : 

sketch  8 . Line (pointl  =  fibe  p[int],  point2=  fibe  p[int+l]) 
p2 . PartitionFaceBySketch ( faces=f ace  8,  sketch=sketch  8) 

### - r - r - 

X  =  sq3*(r  f iber+RR) /4 . 0 

Y  =  (r  f iber+RR) /4 . 0 

X2  =  sq3*r  fiber/4.0  +  a/4.0 

Y2  =  r_fiber/4.0  +  (sq3/2.0  -  l/sq3)  *  a/2.0 

XI  =  sq3*RR/2.0 
Yl  =  RR/2.0 

X3  =  a/2.0 

Y3  =  (sq3/2.0  -  l/sq3)*a 

face_9  =  f . f indAt (( (X, Y, 0 .),) ,  ( (X2 , Y2 , 0 . ) , ) ) 

fibe_p  =  ( (X3,Y3) , (XI, Yl) ) 

sketch  9  =  hexmodel . Sketch (name= ' sketch  15',  sheetSize=200 . 0) 
sketch  9 . Line (pointl  =  fibe  p[0],  point2=  fibe  p[l]) 
p2 . PartitionFaceBySketch ( faces=f ace  9,  sketch=sketch  9) 

# - 1 - :— 

# 

face_10  =  f . f indAt (( (X, -Y, 0 .),) ,  ( (X2  , -Y2 , 0 . )  ,  ) ) 

fibe_p  =  ( (X3, -Y3) , (XI, -Yl) ) 

sketch  10  =  hexmodel . Sketch (name= ' sketch  16',  sheetSize=200 . 0) 
sketch  1 0 . Line (pointl  =  fibe  p[0],  point2=  fibe  p [ 1 ] ) 
p2 . PartitionFaceBySketch ( faces=f ace  10,  sketch=sketch  10) 

# - - - r-~ 

# 

face_ll  =  f . f indAt ((( -X, -Y,  0 .),)  ,  ( (-X2  , -Y2 , 0  .  )  ,  )  ) 

fibe_p  =  ( (-X3, -Y3) , (-X1, -Yl) ) 

sketch  11  =  hexmodel . Sketch (name= ' sketch  17',  sheetSize=200 . 0) 
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sketch  1 1 . Line (pointl  =  fibe  p[0],  point2=  fibe  p [ 1 ] ) 
p2 . PartitionFaceBySketch ( f aces=f ace  11,  sketch=sketch  11) 

# - 3 - — 

# 

face_12  =  f . f indAt ( ( ( -X, Y, 0 . ) , ) ,  ( ( -X2 , Y2 , 0 . ) , ) ) 

fibe_p  =  ( (-X3, Y3) , (-X1, Yl) ) 

sketch  12  =  hexmodel . Sketch (name= ' sketch  18',  sheetSize=200 . 0) 
sketch  12 . Line (pointl  =  fibe_p[0],  point2=  fibe  p [ 1 ] ) 
p2 . PartitionFaceBySketch ( faces=f ace  12,  sketch=sketch  12) 

# - 1 - :- 

X  =  (-sq3*r  fiber  +  a)/2.0  #  RX 

Y  =  (-r  fiber  +  sq3*a)/2.0  #  RY 

XI  =  (-sq3*RR  +  a)/2.0  #  PQX 

Yl  =  (-RR  +  sq3*a)/2.0  #  PQY 
X2  =  0  #  ABX 

Y2  =  a/ sq3  #  ABY 

X3  =  (X  +  X2J/2.0  #  (AB) M (R) X 

Y3  =  (Y  +  Y2)/2.0  #  (AB) M (R) Y 

X4  =  (XI  +  X)/2.0  #  ( PQ) M (R) X 

Y4  =  (Yl  +  Y)/2.0  #  ( PQ) M (R) Y 

face_13  =  f .f indAt ( ( (X3,Y3, 0. ) , ) ,  ( (X4  ,  Y4 , 0 . )  ,  ) ) 

fibe_p  =  ( (X2, Y2) , (XI, Yl) ) 

sketch  13  =  hexmodel . Sketch (name= ' sketch  19',  sheetSize=200 . 0) 
sketch  13 . Line (pointl  =  fibe  p[0],  point2=  fibe  p[l]) 
p2 . PartitionFaceBySketch ( faces=f ace  13,  sketch=sketch  13) 

# - 1 - - 

face_13  =  f . f indAt ( ( ( -X3 , Y3 , 0 . ) , ) ,  ( (-X4  ,  Y4 , 0 . )  ,  ) ) 
f ibe_p  =  ( ( -X2  ,  Y2 )  ,  ( -XI , Yl ) ) 

sketch  13  =  hexmodel . Sketch (name= ' sketch  20',  sheetSize=200 . 0) 
sketch  13 . Line (pointl  =  fibe  p[0],  point2=  fibe  p [ 1 ] ) 
p2 . PartitionFaceBySketch ( faces=f ace  13,  sketch=sketch  13) 

# - 1 - :- 

face_13  =  f .f indAt ( ( (-X3, -Y3, 0. ) , ) ,  ( (-X4 , -Y4 , 0 . ) , ) ) 
fibe_p  =  ( (-X2, -Y2) , (-X1, -Yl) ) 

sketch  13  =  hexmodel . Sketch (name= ' sketch  21',  sheetSize=200 . 0) 
sketch  13 . Line (pointl  =  fibe  p[0],  point2=  fibe  p [ 1 ]  ) 
p2 . PartitionFaceBySketch ( faces=f ace  13,  sketch=sketch  13) 

# - - - r 

face_13  =  f . f indAt ( ( (X3 , -Y3 , 0 . ) , ) ,  ( (X4 , -Y4 , 0 . ) , ) ) 
fibe_p  =  ( (X2, -Y2) , (XI, -Yl) ) 

sketch  13  =  hexmodel . Sketch (name= ' sketch  22',  sheetSize=200 . 0) 
sketch  13 . Line (pointl  =  fibe  p[0],  point2=  fibe  p [ 1 ] ) 
p2 . PartitionFaceBySketch ( faces=f ace  13,  sketch=sketch  13) 

# - 1 - :- 

X2  =  0  #  ABX 

Y2  =  a/ sq3  #  ABY 

X3  =  0  #  GX 

Y3  =  r  fiber  #  GY 

X4  =  0  #  FX 

Y  4  =  RR  #  FY 

X5  =  0  #  (AB) M (G) X 

Y5  =  (r_fiber  +  a/sq3)/2.0  #  (AB)M(G)Y 
X6  =  0  #  (G)  M  (F)  X 

Y6  =  (r  fiber  +  RRJ/2.0  #  (G)m(F)Y 
fibe_p  =  ( (X2,Y2) , (X4,Y4) ) 

face_14  =  f . f indAt (( (X5 , Y5 , 0 .),) ,  ( (X6,  Y6,  0 . )  ,  ) ) 

sketch  14  =  hexmodel . Sketch (name= ' sketch  23',  sheetSize=200 . 0) 
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sketch  14 . Line (pointl  =  fibe  p[0],  point2=  fibe  p [ 1 ] ) 
p2 . PartitionFaceBySketch ( faces=f ace  14,  sketch=sketch  14) 

# - 7 - 7 

X2  =  0  #  -ABX 

Y2  =  -a/ sq3  #  -ABY 

X3  =  0  #  GX 

Y3  =  -r  fiber  #  -GY 

X4  =  0  #  -FX 

Y4  =  -RR  #  -FY 

X5  =  0  #  (AB)  M  (G)  X 

Y5  =  -(r_fiber  +  a/sq3)/2.0  #  -(AB)M(G)Y 
X6  =  0  #  (G) M (F) X 

Y6  =  - ( r_f iber  +  RR)/2.0  #  - (G) M (F) Y 
fibe_p  =  ( (X2,Y2) , (X4,Y4) ) 

face_14  =  f . f indAt ( ( (X5 , Y5 , 0 . ) , ) ,  ( (X6, Y6, 0 . ) , ) ) 

sketch  14  =  hexmodel . Sketch (name= ' sketch  24',  sheetSize=200 . 0) 

sketch  14 . Line (pointl  =  fibe  p[0],  point2=  fibe  p [ 1 ] ) 

p2 . PartitionFaceBySketch ( faces=f ace  14,  sketch=sketch  14) 

# - 7 - 7- 

def  hexpack  partition  2()  : 

p2  =  hexmodel . parts [' recta  '  ] 

#  partitioning  the  cells 

#  the  fibers  1234  with  Sketches  3456 


c  = 

=  p2 . ce 

:llS 

e  = 

=  p2. edges 

XI 

=  -sq3 

*RR/2 . 

0 

+ 

a/ 2 

.0 

# 

PQ 

X 

Y1 

=  -RR/2.0  + 

S' 

q3* 

a/ 2 

.0 

# 

PQ 

Y 

X2 

=  -sq3 

*RR/2 . 

0 

+ 

a/ 2 

.0 

# 

PX 

X 

Y2 

=  sq3* 

a/2.0 

# 

PX 

:  Y 

X3 

=  a/2  . 

o  #  pw  : 

X 

Y3 

=  sq3* 

a/2.0 

- 

RR 

.  # 

PW 

Y 

X4 

=  (XI 

+  X2 ) 

/ 

2  . 

0 

Y4 

=  ( Y1 

+  Y2 ) 

/ 

2  . 

0 

X5 

=  a/2  . 

0 

Y5 

=  b/2. 

0 

X6 

=  (X3 

+  X5 ) 

/ 

2  . 

0 

Y6 

=  ( Y3 

+  Y5 ) 

/ 

2  . 

0 

X7 

=  (X2 

+  X5 ) 

/ 

2  . 

0 

Y7 

=  ( Y2 

+  Y5 ) 

/ 

2  . 

0 

X8 

=  (XI 

+  X3 ) 

/ 

2  . 

0 

Y8 

=  ( Y1 

+  Y3 ) 

/ 

2  . 

0 

#  cells  in  first  quadrant  ALL 

edges  =  e . f indAt (( (X4 , Y4 , 0 .),) ,  ( (X6, Y6, 0 . ) , ) ,  ( (X7 , Y7 , 0 . ) , ) , 

(  (X8,Y8,0.) , ) ) 

cells  =  c.findAt ( ( (a/2 .0,  b/2.0,  0.),)) 
lines  =  e . f indAt ( (a/2 . 0 ,  b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 

#  cells  in  second  quadrant  SILVER 

edges  =  e . f indAt ((( -X4 , Y4 , 0 .),) ,  ( (-X6, Y6, 0 . ) , ) ,  ( (-X7 , Y7 , 0 . ) , ) ,  ((- 
X8 , Y8 , 0 . ) , ) ) 

cells  =  c . f indAt ((( -a/2 . 0 ,  b/2.0,  0.),)) 
lines  =  e . f indAt (( -a/2 . 0 ,  b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 

#  cells  in  third  Quadrant  TEA 
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edges  =  e . f indAt ( ( ( -X4 , -Y4 , 0 . ) , ) ,  ( (-X6, -Y6, 0 . ) , ) ,  ( ( -X7 , -Y7 , 0 . ) , ) ,  ((- 

X8 , -Y8 , 0 . ) , ) ) 

cells  =  c . f indAt ((( -a/2 . 0 ,  -b/2.0,  0.),)) 
lines  =  e . f indAt (( -a/2 . 0 ,  -b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 

#  cells  in  fourth  Quadrant  CUPS 

edges  =  e . f indAt (( (X4 , -Y4 , 0 ,  ( (X6, -Y6, 0 . ) , ) ,  ( (X7 , -Y7 , 0 . ) , ) ,  ((X8,- 

Y8 , 0  .  )  ,  )  ) 

cells  =  c . f indAt (( (a/2 . 0 ,  -b/2.0,  0.),)) 
lines  =  e . f indAt ( (a/2 . 0 ,  -b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 

#  cells  in  matrix 

XI  =  -sq3*RR/2.0  +  a/2.0  #  PQ  X 

Y1  =  -RR/2.0  +  sq3*a/2.0  #  PQ  Y 

X2  =  -sq3*RR/2.0  +  a/2.0  #  PX  X 

Y2  =  sq3*a/2.0  #  PX  Y 

X3  =  (-sq3*r  fiber  +  a)/2.0  #  RX 

Y3  =  (-r_fiber  +  sq3*a)/2.0  #  RY 

X5  =  0  #  ABX 

Y5  =  a/sq3  #  ABY 

X6  =  0  #TAX 

Y6  =  b/2.0  #  TAY 

X7  =  a/2.0  -  r  fiber  #  SX 

Y7  =  b/2.0  #  SY 

X8  =  (X5  +  X3)/2.0  #  (AB) M (R) X 

Y8  =  ( Y5  +  Y3)/2.0  #  (AB) M (R) Y 

X9  =  (XI  +  X3)/2.0  #  ( PQ) M (R) X 

Y9  =  ( Y1  +  Y3)/2.0  #  ( PQ) M (R) Y 

X10  =  (XI  +  X2)/2.0  #  ( PQ) M ( PX) X 

Y10  =  ( Y1  +  Y2)/2.0  #  ( PQ) M ( PX) Y 

XII  =  (X2  +  X7)/2.0  #  ( PX) M ( S ) X 

Yll  =  ( Y2  +  Y7)/2.0  #  ( PX) M ( S ) Y 

X12  =  (X6  +  X7)/2.0  #  ( S ) M ( TA) X 

Y12  =  (Y6  +  Y7)/2.0  #  (S)M(TA)Y 

X13  =  (X6  +  X5)/2.0  #  (AB) M (TA) X 

Y13  =  (Y6  +  Y5)/2.0  #  (AB) M (TA) Y 

X14  =  (X5  +  X7)/2.0  #  (AB) M ( S ) X 

Y14  =  ( Y5  +  Y7)/2.0  #  (AB)M(S)Y 

X15  =  (X2  +  X3)/2.0  #  (AB) M (R) X 

Y15  =  ( Y2  +  Y3)/2.0  #  (AB) M (R) Y 

#  cells  in  first  quadrant  ALL 

edges  =  e . f indAt (( (X8 , Y8 , 0 .),) ,  ( (X9, Y9, 0 . )  ,  )  ,  ( (X10,  Y10, 0 . )  ,  )  , 

( (Xll, Yll, 0.),),  ( (X12,Y12,0.)  ,  )  ,  ( (X13 , Y13 , 0 . ) , ) ) 

cells  =  c.findAt (( (X14,Y14,  0.),),  ( (X15,  Y15, 0  .  )  ,  )  ) 

lines  =  e . f indAt ( (a/2 . 0 ,  b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 

#  cells  in  quadrant  SILVER 

edges  =  e . f indAt ((( -X8 , Y8 , 0 .),) ,  ( (-X9, Y9, 0 . ) , ) ,  ( (-X10,  Y10, 0 . )  ,  )  , 

( (-X11,Y11,0.) , ) ,  ( (-X12  ,  Y12 , 0 . )  ,  )  ,  ( (X13 , Y13 , 0 . ) , ) ) 

cells  =  c.findAt (( (-X14,Y14,  0.),),  ( (-X15,  Y15, 0  .  )  ,  )  ) 

lines  =  e . f indAt (( -a/2 . 0 ,  b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 
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#  cells  in  quadrant  TEA 

edges  =  e . f indAt ( ( ( -X8 , -Y8 , 0 . ) , ) ,  ( (-X9, -Y9, 0 . ) , )  ,  ( (-X10, -Y10, 0 . )  ,  )  , 

( (-X11,-Y11,0.) ,)  ,  ( (-X12,-Y12,0.)  ,  )  ,  ( (-X13,-Y13,0.)  ,  )  ) 

cells  =  c.findAt (( (-X14, -Y14,  0.),),  ( (-X15, -Y15, 0  .  )  ,  )  ) 

lines  =  e . f indAt (( -a/2 . 0 ,  -b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 

#  cells  in  quadrant  CUPS 

edges  =  e . f indAt (( (X8 , -Y8 , 0 .),) ,  ( (X9, -Y9, 0 . ) , )  ,  ( (X10, -Y10, 0 . )  ,  )  , 

( (Xll , -Yll , 0 ,  ( (X12,-Y12,0.)  ,  )  ,  ( (X13,-Y13,0.)  ,  )  ) 

cells  =  c.findAt (( (X14, -Y14,  0.),),  ( (X15, -Y15, 0  .  )  ,  )  ) 

lines  =  e . f indAt ( (a/2 . 0 ,  -b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 

#  PARTITIONING  THE  INNER  CELLS 


XI  = 

0  #  ABX 

Y1  = 

a/sq3  #  ABY 

X2  = 

a/2.0  #ADX 

Y2  = 

(sq3/2.0  -  l/sq3)*a  # 

X3  = 

sq3*r  fiber/2.0  # 

Y3  = 

r  fiber/ 2 . 0 

X4  = 

sq3*RR/2 . 0  # 

AX 

Y4  = 

RR/2.0  #AY 

X5  = 

0  #FX 

Y5  = 

RR  #FY 

X6  = 

0  #  GX 

Y6  = 

r  fiber  #GY 

X7  = 

(XI  +  X2) /2  . 

0  #ABMAD 

Y7  = 

( Y1  +  Y2 ) / 2  . 

0  #ABMAD 

X8  = 

(X2  +  X3 )  /2  . 

0  #ADM 

Y8  = 

( Y2  +  Y3 ) /2 . 

0  #ADM 

X9  = 

(X3  +  X4 ) /2  . 

0  #MAX 

Y9  = 

( Y3  +  Y4) /2  . 

0  #MAY 

X10  : 

=  (X4  +  X5 ) /2 

.0  #  AMFX 

Y10  : 

=  ( Y4  +  Y5 ) /2 

.0  #  AMFY 

Xll  ^ 

=  (X5  +  X6) / 2 

.0  #FMGX 

Yll  ^ 

=  ( Y5  +  Y6) / 2 

.0  #FMGY 

X12  ^ 

=  (XI  +  X6) / 2 

.0  #GMABX 

Y12  ^ 

=  ( Y1  +  Y6) / 2 

.0  #GMABY 

#  cells  in  first  quadrant  ALL 

edges  =  e . f indAt (( (X7 , Y7 , 0 .),) ,  ( (X8, Y8, 0 . ) , ) ,  ( (X9, Y9, 0 . ) , ) , 

( (X10 ,  Y10 , 0 . )  ,  )  ,  ( (Xll, Yll, 0.),),  ( (X12,Y12,0.) ,) ) 

cells  =  c . f indAt (( (X7 , Y7 ,  0.),),  (  (X10, Y10, 0 . ) , ) ) 

lines  =  e . f indAt ( (a/2 . 0 ,  b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 


#  cells  in  second  quadrant  SILVER 

edges  =  e . f indAt ((( -X7 , Y7 , 0 .),)  ,  ( (-X8,  Y8 , 0 . )  ,  )  ,  ( (-X9, Y9, 0 . ) , ) , 

( (-X10,  Y10, 0 . )  ,  )  ,  ((-Xll, Yll, 0.),),  ( (-X12 , Y12 , 0 . ) , ) ) 

cells  =  c . f indAt ((( -X7  ,  Y7  ,  0.),),  ( (-X10, Y10, 0 . ) , ) ) 

lines  =  e . f indAt (( -a/2 . 0 ,  b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 

#  cells  in  third  quadrant  TEA 

edges  =  e . f indAt ((( -X7 , -Y7 , 0 .),) ,  ( (-X8 , -Y8 , 0 . )  ,  )  ,  ( (-X9, -Y9,  0 . )  ,  )  , 


81 


( (-X10,-Y10,0.)  ,)  ,  ( (-X11,-Y11,0.) ,) ,  ( (-X12 , -Y12 , 0  .  ) , ) ) 

cells  =  c . f indAt ( ( (-X7  , -Y7  ,  0.),),  ( (-X10, -Y10, 0 . ) , ) ) 

lines  =  e . f indAt (( -a/2 . 0 ,  -b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 

#  cells  in  fourth  quadrant  CUPS 

edges  =  e . f indAt (( (X7 , -Y7 , 0 .),) ,  ( (X8 , -Y8 , 0 . )  ,  )  ,  ( (X9 , -Y9 , 0 . )  ,  )  , 

( (X10,-Y10,0.)  ,)  ,  ( (Xll ,  -Yll ,  0 ,  ( (X12,-Y12,0.) ,) ) 

cells  =  c . f indAt (( (X7 , -Y7 ,  0.),),  ( (X10, -Y10, 0 . ) , ) ) 

lines  =  e . f indAt ( (a/2 . 0 ,  -b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 

#  cells  in  x  axis 

XI  =  a/2.0  #ADX 

Y1  =  (sq3/2 . 0  -  1 / sq3 ) *a  #  ADY 
X2  =  sq3*r  fiber/2.0  # 

Y2  =  r  fiber/2.0 

X3  =  sq3*RR/2.0  #  AX 

Y3  =  RR/2.0  #AY 

X4  =  sq3*RR/2.0  #BX 

Y4  =  -RR/2.0 

X5  =  sq3*r_f iber/2 . 0  # 

Y5  =  -r  fiber/2.0 
X6  =  a/2.0  #AEX 

Y6  =  -(sq3/2.0  -  l/sq3)*a  #  AEY 

X7  =  (XI  +  X2 ) /2 . 0  #ADM 
Y7  =  ( Y1  +  Y2 ) /2 . 0  #ADM 
X8  =  (X2  +  X3)/2.0  #MAX 
Y8  =  ( Y2  +  Y3 ) /2 . 0  #MAY 
X9  =  (X3  +  X4J/2.0  #AMBX 
Y9  =  (Y3  +  Y4)/2.0  #AMBY 
X10  =  (X4  +  X5)/2.0  #  BMX 
Y10  =  ( Y4  +  Y5)/2.0  #  BMY 

XII  =  (X5  +  X6)/2.0  #MAEX 
Yll  =  ( Y5  +  Y6)/2.0  #MAEY 
X12  =  (XI  +  X6)/2.0  #AEMADX 
Y12  =  ( Y1  +  Y6)/2.0  #AEMADY 

edges  =  e . f indAt (( (X7 , Y7 , 0 .),) ,  ( (X8 , Y8 , 0 . ) , ) ,  ( (X9, Y9, 0 . ) , ) , 

( (X10 , Y10 , 0 . )  ,  )  ,  ( (Xll,  Yll,  0.)  ,  )  ,  (  (X12 , Y12 , 0 . ) , ) ) 

cells  =  c . f indAt (( (X7  ,  Y7  ,  0.),),  ( (X10, Y10, 0 . ) , ) ) 

lines  =  e . f indAt ( (a/2 . 0 ,  b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 

#  cells  in  -x  axis 

edges  =  e . f indAt ((( -X7 , Y7 , 0 .),) ,  ( (-X8 , Y8 , 0 . ) , ) ,  ( (-X9, Y9, 0 . ) , ) , 

( (-X10,Y10,0.)  ,  )  ,  ((-Xll, Yll, 0.),),  ( (-X12 , Y12 , 0 . ) , ) ) 

cells  =  c . f indAt ((( -X7  ,  Y7  ,  0.),),  ( (-X10, Y10, 0 . ) , ) ) 

lines  =  e . f indAt (( -a/2 . 0 ,  b/2.0,  ped/3.0)) 

p2 . PartitionCellByExtrudeEdge (cells=cells,  edges=edges,  line=lines, 
sense=FORWARD) 


def  hexpack  partition_3 ( ) : 

p2  =  hexmodel . parts [' recta  '  ] 
global  divid,  ratio 

#  diving  the  whole  section  into  ten  parts 
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#  variable  divid  =  10 
if ( ( zeta  <  0.2)): 
divid  =  20 
ratio  =  0.01875 
elif((zeta  >=  0.2)  and 
divid  =  12 
ratio  =  0.0375 
elif((zeta  >=  0.4)  and 
divid  =  6 
ratio  =  0.0725 
elif((zeta  >=  0.6)  and 
divid  =  4 
ratio  =  0.1125 
elif((zeta  >=  0.8)  and 
divid  =  3 
ratio  =  0.15 
else : 

divid  =  2 
ratio  =  0.1875 


( zeta  <  0.4)): 

( zeta  <  0.6)): 

( zeta  <  0.8)): 

( zeta  <  1.0)): 


incr  =  ped*ratio 

incre  =  ped* ( l-ratio*2 ) /divid 

for  num  in  range (divid+1 ) : 

dspace  =  incre*num+  incr 

temp  6  =  p2 . DatumPlaneByThreePoints (pointl= (0 . 0, 0 . 0, dspace) , 
point2=(a/2.0,0, dspace) ,  point3=(0,b/2.0,  dspace) ) 
datams  =  temp  6 . id 
ccall  =  p2. cells 

p2 . PartitionCellByDatumPlane (cells=ccall, 
datumPlane=p2 . datums [datams ] ) 


# - 

def  hexpack  partition  4()  : 

p2  =  hexmodel . parts [' recta  '  ] 

#  creating  datum  plane  for  dividing  the  model 

#  first  diagonal  partition 

ccall  =  p2. cells 

temp  8  =  p2 . DatumPlaneByThreePoints (pointl= ( 0 , 0 , ped) , 
point2=(a/2.0,b/2.0,0) ,  point3=(-a/2.0,-b/2.0,0) ) 
datams  =  temp  8 . id 

p2 . PartitionCellByDatumPlane (cells=ccall,  datumPlane=p2 .datums [datams] ) 

#  second  diagonal  partition 

ccall  =  p2. cells 

temp  9=  p2 . DatumPlaneByThreePoints (pointl= ( 0 , 0 , ped) ,  point2=(- 
a/2.0,b/2.0,0) ,  point3=(a/2.0,-b/2.0,0) ) 
datams  =  temp_9 . id 

p2 . PartitionCellByDatumPlane (cells=ccall,  datumPlane=p2 .datums [datams] ) 

#  horizontal  partition 

ccall  =  p2. cells 

temp  9=  p2 . DatumPlaneByThreePoints (pointl= (a/2 . 0 , 0 ,  ped/2 . 0 )  , 
point2=(0,0, ped) ,  point3=(0,0,0)) 
datams  =  temp__9  .  id 

p2 . PartitionCellByDatumPlane (cells=ccall,  datumPlane=p2 .datums [datams] ) 

#  hiding  the  datum  planes.,  not  supressing 

session . viewports [ ' Viewport : 

1 ' ] • part Display . geometryOptions . setValues (datumPlanes=OFF) 
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def  hexpack  assembly () : 

p2  =  hexmodel . parts [' recta  '  ] 
p4  =  hexmodel . rootAssembly 

hexinsta  1  =  p4 . Instance (name  =  'hexpck  1',  part  =  p2,  dependent  =  ON) 


## - 

def  hexpack_step ( ) : 

p4  =  hexmodel . rootAssembly 

hexmodel . StaticStep (name= ' Step-1 '  ,  previous= ' Initial ' ) 

## - 

def  hexpack_load ( ) : 

p4  =  hexmodel . rootAssembly 
inst  =  p4 . instances [' hexpck  1'] 
v  =  inst . vertices 

v_l  =  v . f indAt ( ( (a/2 . 0 , b/2 . 0 , 0 . 0 ) , ) ) 
region  =  regionToolset . Region (vertices=v  1) 

hexmodel . ConcentratedForce (name= ' Load ' ,  createStepName= ' Step-1 ' , 
region=region,  cfl=1000) 

## - 

## - 

def  hexpack_bc() : 

p4  =  hexmodel . rootAssembly 
vv  =  p4 . instances [' hexpck  1'] 
v  =vv. vertices 

v_l  =  v . f indAt (( (a/2 . 0 , b/2 . 0 , ped) ,) ) 
region  =  regionToolset . Region (vertices=v  1) 

hexmodel . DisplacementBC (name= ' BC1 ' ,  createStepName= ' Initial ' , 
region=region, 

ul=SET,  u2=UNSET ,  u3=UNSET,  url=UNSET,  ur2=UNSET,  ur3=UNSET, 
amplitude=UNSET,  localCsys=None) 

## - 

def  hexpack  mesh() : 

p2  =  hexmodel . parts [' recta  '  ] 

#  e_seed_i  =  seeding  numbers 
e_seed_3  =  int ( seed_l /2 . 0 ) 

##  e_seed_3  =  2 

##  this  seed  number  determines  how  many  elements  are  in  the  model 
e_seed_4  =  4 

##  the  points  on  the  one  half. 


xaa. 

yaa 

= 

o 

o 

o 

o 

xab. 

yab 

= 

sq3*RR/2 . 0 ,  0.0 

xac. 

yac 

= 

r  fiber,  0.0 

xad. 

yad 

= 

a/2.0,  0.0 

xae, 

yae 

= 

a/2.0,  a/ (2*sq3) 

xaf, 

yaf 

= 

a/2.0,  b/2.0-r  fiber 

xag. 

yag 

= 

a/2.0,  b/ 2 . 0-RR 

xah. 

yah 

= 

a/2.0,  b/2.0 

xai. 

yai 

= 

a/2 . 0-sq3*RR/2 . 0 ,  b/2.0 

xaj  , 

yaj 

= 

a/2.0-r  fiber,  b/2.0 

xak, 

yak 

= 

0.0,  b/2.0 

xal. 

yal 

= 

0.0,  a/ sq3 

xam. 

yam 

= 

0.0,  r  fiber 

xan. 

yan 

= 

0.0,  RR 

xao, 

yao 

= 

sq3*RR/ 2.0,  RR/2.0 
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xap,  yap  = 

sq3*RR/4 . 0, 

3 

. 0*RR/4 . 0 

xaq,  yaq  = 

sq3*r  fiber/2 

.0,  r  fiber/2.0 

xar,  yar  = 

r  fiber/ 2 . C 

b 

sq3*r  fiber/2.0 

xas,  yas  = 

a/4.0,  b/4. 

0 

xat,  yat  = 

a/2.0-r  fiber/2.0,  b/2.0-  sq3 

*r  fibe: 

xau,  yau  = 

a/ 2 . 0-sq3*i 

'  fiber/ 2.0,  b/2.0 

r  fiber 

xav,  yav  = 

a/2 . 0-sq3*RR/2 . 0 ,  b/2.0-RR/2 

.0 

xaw,  yaw  = 

a/2 . 0-sq3*RR/ 4.0,  b/2. 0-3.0* 

RR/4 . 0 

xamb,  yamb 

=  0.5*  (xaa 

+ 

xab) ,  0.5* (yaa 

+ 

yab) 

xbmc ,  ybmc 

=  0.5* (xab 

+ 

xac) ,  0.5* (yab 

+ 

yac) 

xcmd,  ycmd 

=  0.5* (xac 

+ 

xad) ,  0.5* (yac 

+ 

yad) 

xdme ,  ydme 

=  0.5* (xad 

+ 

xae) ,  0.5* (yad 

+ 

yae) 

xemf,  yemf 

=  0.5* (xae 

+ 

xaf) ,  0.5* (yae 

+ 

yaf) 

xfmg,  yfmg 

=  0.5*  (xaf 

+ 

xag) ,  0.5* (yaf 

+ 

yag) 

xgmh,  ygmh 

=  0.5* (xag 

+ 

xah) ,  0.5* (yag 

+ 

yah) 

xhmi ,  yhmi 

=  0.5* (xah 

+ 

xai) ,  0.5* (yah 

+ 

yai) 

ximj ,  yimj 

=  0.5* (xai 

+ 

xaj ) ,  0.5* (yai 

+ 

yaj ) 

xjmk,  yjmk 

=  0.5* (xaj 

+ 

xak) ,  0.5* (yaj 

+ 

yak) 

xkml,  ykml 

=0.5* (xak 

+ 

xal) ,  0.5* (yak 

+ 

yal) 

xlmm,  ylmm 

=0.5* (xal 

+ 

xam) ,  0.5* (yal 

+ 

yam) 

xmmn ,  ymmn 

=  0.5* (xam 

+ 

xan) ,  0.5* (yam 

+ 

yan) 

xnma,  ynma 

=  0.5* (xan 

+ 

xaa) ,  0.5* (yan 

+ 

yaa) 

xlms,  ylms 

=0.5* (xal 

+ 

xas) ,  0.5* (yal 

+ 

yas) 

xsme,  ysme 

=  0.5* (xas 

+ 

xae) ,  0.5* (yas 

+ 

yae) 

xamp,  yamp 

=  0.5* (xaa 

+ 

xap) ,  0.5* (yaa 

+ 

yap) 

xumv,  yumv 

=  0.5* (xau 

+ 

xav) ,  0.5* (yav 

+ 

yau) 

xwmt ,  y wmt 

=  0.5* (xaw 

+ 

xat) ,  0.5* (yaw 

+ 

yat) 

xpmr,  ypmr 

=  0.5* (xap 

+ 

xar) ,  0.5* (yap 

+ 

yar) 

xqmo ,  yqmo 

=  0.5* (xaq 

+ 

xao) ,  0.5* (yaq 

+ 

yao) 

sl5,  cl5  = 

sin (15*pi/180 

) ,  cos (15*pi/180 

) 

s45,  c45  = 

l/sq2,  l/sq2 

s75,  c75  = 

sin  (75*pi/180 

) ,  cos (75*pi/180 

) 

xcmq,  ycmq 

=  cl5*r  fiber 

y  sl5*r  fiber 

xrmq,  yrmq 

=  c45*r  fiber 

y  s45*r  fiber 

xrmm,  yrmm 

=  c75*r  fiber 

■,  s75*r  fiber 

xjmu,  yjmu 

=  a/2.0-xcmq. 

b/2 . 0-ycmq 

xumt ,  yumt 

=  a/2 . 0-xrmq, 

b/2 . 0-yrmq 

xtmf,  ytmf 

=  a/2 . 0-xrmm, 

b/2 . 0-yrmm 

ximv,  yimv 

=  0.5* (xai 

+ 

xav) ,  0.5* (yai 

+ 

yav) 

x vmw ,  y vmw 

=  0.5* (xav 

+ 

xaw) ,  0.5* (yav 

+ 

yaw) 

xwmg ,  y wmg 

=  0.5* (xaw 

+ 

xag) ,  0.5* (yag 

+ 

yaw) 

xhmw ,  yhmw 

=  0.5* (xah 

+ 

xaw) ,  0.5* (yah 

+ 

yaw) 

xuml ,  yuml 

=  0.5* (xau 

+ 

xal) ,  0.5* (yau 

+ 

yal) 

xrms,  yrms 

=  0.5* (xar 

+ 

xas) ,  0.5* (yar 

+ 

yas) 

xsmt,  ysmt 

=  0.5* (xas 

+ 

xat) ,  0.5* (yas 

+ 

yat) 

xqme ,  yqme 

=  0.5* (xaq 

+ 

xae) ,  0.5* (yaq 

+ 

yae) 

xomb,  yomb 

=  0.5* (xao 

+ 

xab) ,  0.5* (yao 

+ 

yab) 
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xpmo ,  ypmo 
xnmp,  ynmp 


=  0.5* (xap  +  xao) ,  0.5* (yap  +  yao) 
=  0.5* (xan  +  xap),  0.5* (yan  +  yap) 


e,  c,  f  =  p2. edges,  p2. cells,  p2. faces 
incr  =  ped*ratio 
incre  =  ped* ( l-ratio*2 ) /divid 
depthset  =  [0] 
for  num  in  range (divid+1 ) : 
temp  =  incre*num  +  incr 
depthset  =  depthset  +  [temp] 
depthset  =  depthset  +  [ped] 
pedd  =  ped/divid 

for  num  in  range (len (depthset) ) : 
dd  =  depthset [num] 

edges  =  e . f indAt ( ( (xamb,  yamb,  dd) , ) ,  ( (xamb,  -yamb,  dd) , ) , 

( (-xamb,  yamb,  dd) , ) ,  ( (-xamb,  -yamb,  dd) , ) , 

( (xgmh,  ygmh,  dd) , ) ,  ( (-xgmh,  ygmh,  dd) , ) , 

( (xgmh,  -ygmh,  dd) , ) ,  ( (-xgmh,  -ygmh,  dd) , ) , 

( (-xhmi,  yhmi,  dd) , ) ,  ( (-xhmi,  -yhmi,  dd) , ) , 

( (xhmi,  yhmi,  dd) , ) ,  ( (xhmi,  -yhmi,  dd) , ) , ) 

p2 . seedEdgeByNumber (edges=edges ,  number=e  seed  3,  constraint=FIXED) 

edges  =  e . f indAt (( (xdme,  ydme,  dd) , ) ,  ( (xdme,  -ydme,  dd) , ) , 

( (-xdme,  ydme,  dd) , ) ,  ( (-xdme,  -ydme,  dd) , ) , 

( (xemf ,  yemf ,  dd) , ) ,  ( (xemf ,  -yemf ,  dd) , ) , 

( (-xemf,  yemf,  dd) , ) ,  ( (-xemf,  -yemf,  dd) , ) , 

( (xlmm,  ylmm,  dd) , ) ,  ( (-xlmm,  ylmm,  dd) , ) , 

( (xlmm,  -ylmm,  dd) , ) ,  ( (-xlmm,  -ylmm,  dd) , ) , 

( (-xkml,  ykml,  dd) , ) ,  ( (-xkml,  -ykml,  dd) , ) , 

( (xkml,  ykml,  dd) , ) ,  ( (xkml,  -ykml,  dd) , ) , ) 

p2 . seedEdgeByNumber (edges=edges ,  number=e  seed  3,  constraint=FIXED) 

edges  =  e . f indAt (( (xamp,  yamp,  dd) , ) ,  ( (xamp,  -yamp,  dd) , ) , 

( (-xamp,  yamp,  dd) , ) ,  ( (-xamp,  -yamp,  dd) , ) ) 

p2 . seedEdgeByNumber (edges=edges ,  number=e  seed  3,  constraint=FIXED) 

edges  =  e . f indAt (( (xcmq,  ycmq,  dd) , ) ,  ( (xcmq,  -ycmq,  dd) , ) , 

( (-xcmq,  ycmq,  dd) , ) ,  ( (-xcmq,  -ycmq,  dd) , ) , 

( (xrmq,  yrmq,  dd) , ) ,  ( (xrmq,  -yrmq,  dd) , ) , 

( (-xrmq,  yrmq,  dd) , ) ,  ( (-xrmq,  -yrmq,  dd) , ) , 

( (xrmm,  yrmm,  dd) , ) ,  ( (-xrmm,  yrmm,  dd) , ) , 

( (xrmm,  -yrmm,  dd) , ) ,  ( (-xrmm,  -yrmm,  dd) , ) , 

( (xjmu,  yjmu,  dd) , ) ,  ( (xjmu,  -yjmu,  dd) , ) , 

( (-xjmu,  yjmu,  dd) , ) ,  ((-xjmu,  -yjmu,  dd) , ) , 

( (xumt,  yumt,  dd) , ) ,  ( (xumt,  -yumt,  dd) , ) , 

( (-xumt,  yumt,  dd) , ) ,  ( (-xumt,  -yumt,  dd) , ) , 

( (xtmf,  ytmf,  dd) , ) ,  ( (-xtmf,  ytmf,  dd) , ) , 

( (xtmf,  -ytmf,  dd) , ) ,  ( (-xtmf,  -ytmf,  dd) , ) ) 

p2 . seedEdgeByNumber (edges=edges ,  number=e  seed  3,  constraint=FIXED) 

edges  =  e . f indAt (( (ximj ,  yimj ,  dd) , ) ,  ((ximj,  -yimj ,  dd) , ) , 

( ( -ximj ,  yimj,  dd) , ) ,  ((-ximj,  -yimj,  dd) , ) , 

( (-xumv,  yumv,  dd) , ) ,  ( (-xumv,  -yumv,  dd) , ) , 

( (xumv,  -yumv,  dd) , ) ,  ( (xumv,  yumv,  dd) , ) , 
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(  (xwmt. 

-ywmt,  dd) , ) , 

( (-xwmt. 

-ywmt 

,  dd) , ) 

(  (xwmt. 

ywmt,  dd) , ) , 

( (-xwmt. 

ywmt. 

dd) , ) , 

( (xfmg. 

-yfmg,  dd) , ) , 

( (-xfmg. 

-yfmg 

t,  dd)  ,  ) 

( (xfmg. 

yfmg,  dd) , ) , 

( (-xfmg. 

yfmg. 

dd) , ) , 

( (xpmr , 

ypmr ,  dd) , ) , 

( (-xpmr. 

ypmr. 

dd) , ) , 

( (xpmr. 

-ypmr ,  dd) , ) , 

( (-xpmr. 

-ypmr. 

dd) , ) , 

(  (xqmo. 

yqmo,  dd) , ) , 

( (-xqmo. 

-yqmo. 

dd) , ) , 

(  (-xqmo. 

yqmo,  dd) , ) , 

( (xqmo. 

-yqmo. 

dd) , ) , 

( (xamb. 

yamb,  dd) , ) , 

( (-xamb. 

yamb. 

dd) , ) , 

( (xjmk. 

yjmk,  dd) , ) , 

( (xjmk,  - 

■yjmk. 

dd) , ) , 

( (-xjmk. 

yjmk,  dd) , ) , 

( (-xjmk. 

-yjmk 

:,  dd)  ,  ) 

(  (xlmm. 

ylmm,  dd) , ) , 

( (xlmm,  - 

■ylmm. 

dd) , ) , 

( (xmmn. 

ymmn,  dd) , ) , 

( ( xmmn ,  - 

■  ymmn , 

dd) , ) , 

( (-xcmd. 

ycmd,  dd) , ) , 

( (xcmd. 

ycmd. 

dd) , ) , 

( (-xbmc. 

ybmc,  dd) , ) , 

( (xbmc. 

ybmc. 

dd) , ) , ) 

p2 . seedEdgeByNumber (edges=edges ,  number=e  seed  3,  constraint=FIXED) 

edges  =  e . f indAt ( ( (xlms ,  ylms,  dd) , ) ,  ( (xlms,  -ylms,  dd) , ) , 

( (-xlms,  ylms,  dd) , ) ,  ( (-xlms,  -ylms,  dd) , ) , 

( (-xsme,  ysme,  dd) , ) ,  ( (-xsme,  -ysme,  dd) , ) , 

( (xsme,  -ysme,  dd) , ) ,  ( (xsme,  ysme,  dd) , )  ) 

p2 . seedEdgeByNumber (edges=edges ,  number=e  seed  3,  constraint=FIXED) 

edges  =  e . f indAt (( (ximv,  yimv,  dd) , ) ,  ( (ximv,  -yimv,  dd) , ) , 

( (-ximv,  -yimv,  dd) , ) ,  ( (-ximv,  yimv,  dd) , ) , 

( (xvmw,  yvmw,  dd) , ) ,  ( (xvmw,  -yvmw,  dd) , ) , 

( (-xvmw,  -yvmw,  dd) , ) ,  ( (-xvmw,  yvmw,  dd) , ) , 

( (xwmg,  ywmg,  dd) , ) ,  ( (-xwmg,  ywmg,  dd) , ) , 

( (-xwmg,  -ywmg,  dd) , ) ,  ( (xwmg,  -ywmg,  dd) , ) , 

( (xhmw,  yhmw,  dd) , ) ,  ( (-xhmw,  yhmw,  dd) , ) , 

( (-xhmw,  -yhmw,  dd) , ) ,  ( (xhmw,  -yhmw,  dd) , ) , 

( (xuml,  yuml,  dd) , ) ,  ( (-xuml,  yuml,  dd) , ) , 

( (-xuml,  -yuml,  dd) , ) ,  ( (xuml,  -yuml,  dd) , ) , 

( (xrms,  yrms,  dd) , ) ,  ( (-xrms,  yrms,  dd) , ) , 

( (-xrms,  -yrms,  dd) , ) ,  ( (xrms,  -yrms,  dd) , ) , 

( (xsmt,  ysmt,  dd) , ) ,  ( (-xsmt,  ysmt,  dd) , ) , 

( (-xsmt,  -ysmt,  dd) , ) ,  ( (xsmt,  -ysmt,  dd) , ) , 

( (xqme,  yqme,  dd) , ) ,  ( (-xqme,  yqme,  dd) , ) , 

( (-xqme,  -yqme,  dd) , ) ,  ( (xqme,  -yqme,  dd) , ) , 

( (xomb,  yomb,  dd) , ) ,  ( (-xomb,  yomb,  dd) , ) , 

( (-xomb,  -yomb,  dd) , ) ,  ( (xomb,  -yomb,  dd) , ) , 

( (xpmo,  ypmo,  dd) , ) ,  ( (-xpmo,  ypmo,  dd) , ) , 

( (-xpmo,  -ypmo,  dd) , ) ,  ( (xpmo,  -ypmo,  dd) , ) , 

( (xnmp,  ynmp,  dd) , ) ,  ( (-xnmp,  ynmp,  dd) , ) , 

( (-xnmp,  -ynmp,  dd) , ) ,  ( (xnmp,  -ynmp,  dd) , ) ) 

p2 . seedEdgeByNumber (edges=edges ,  number=e  seed  3,  constraint=FIXED) 
depthsetmid  =  [0] 

for  ij  in  range ( (len (depthset) -1) ) : 

temp  =  (depthset [ ij ]  +  depthset [ij+1] ) *0 . 5 
depthsetmid  =  depthsetmid  +[temp] 
del  depthsetmid [depthsetmid . index ( 0 ) ] 
for  num  in  range (divid+2 ) : 
if (e_seed_4  >  2)  : 

if (  (num  ==  0)  or  (num  ==  (len (depthset) -2) )  ): 

##  seed  change  for  mesh  density  tests, 
e  seed  42  =  e  seed  4+2 
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else : 

e_seed_42  =  e_seed_4  -  2 

else : 

e_seed_42  =  e_seed_4 

dd  =  depthsetmid [num] 
for  i  in  range  (2)  : 

if (i  ==  0)  : 

t  =  1.0 
else : 

t  =  -1.0 

for  j  in  range  (2)  : 

if (j  ==  0) : 

tt  =  -1.0 
else : 

tt  =  1.0 


dd) , ) , 
dd) , ) , 
dd) , ) , 
dd) , ) , 
dd) , ) , 
dd) , ) , 
dd) , ) , 
dd) , ) , 


r 

constraint=FIXED) 
edges  =  e 


p2  ■ 


( (t*xab, 

( (t*xac. 

tt*yab, 

tt*yac. 

dd) , )  , 
dd) , )  , 

(  (t*xad. 

tt*yad. 

( (t*xae. 

tt*yae. 

dd) , )  , 

(  (t*xaf. 

tt*yaf , 

( (t*xag. 

tt*yag. 

dd) , )  , 

( (t*xah. 

tt*yah. 

( (t*xai. 

tt*yai , 

dd) , )  , 

(  (t*xaj , 

tt*ya j  , 

( (t*xao. 

tt*yao. 

dd) , )  , 

( (t*xap. 

tt*yap. 

( (t*xaq. 

tt*yaq. 

dd) , )  , 

( (t*xar. 

tt*yar , 

( (t*xat. 

tt*yat. 

dd) , )  , 

(  (t*xas. 

tt*yas , 

( (t*xau. 

tt*yau. 

dd) , )  , 

(  (t*xav. 

tt*yav. 

( (t*xaw, 
er  (edges: 

tt*yaw, 
=edges , 

dd) , ) ) 
number=e 

seed  42 

r 

tt*yak, 

tt*yam, 

tt*yaa. 

dd) , ) , 
dd) , ) , 
dd) , ) ) 

( (t*xal, 

( (t*xan. 

tt*yal , 
tt*yan. 

dd)  ,  )  , 
dd)  ,  )  , 

##  assigning  the  elements  and  meshing  the  model 

elemTypel  =  mesh . ElemType (elemCode=C3D8 I ,  elemLibrary=STANDARD) 
cell  =  p2 . cells 
cells  =  (cell,  ) 
elements  =  (elemTypel) 

p2 . setElementType (regions=cells  ,  elemTypes= (elemTypel ,  )) 


p2 . generateMesh (regions=cells) 

## - 

def  hexpack_j ob ( ) : 

hex job  =  mdb . Job (name= ' Hex_Job '  ,  model=hexmodel ) 
hex j  ob . write Input  ( ) 
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## - 

from  abaqus  import  * 

from  abaqusConstants  import  * 

from  section  import* 

import  part 

import  regionToolset 

import  displayGroupMdbToolset  as  dgm 

import  material 

import  section 

import  sketch 

import  assembly 

import  step 

import  interaction 

import  load 

import  mesh 

import  visualization 

import  xyPlot 

import  displayGroupOdbToolset  as  dgo 
import  job 
import  math 

hexpack  part() 

hexpack_pit ( ) 

hexpack  mater () 

hexpack  section  () 

print  '  Sections  assigned' 

hexpack  partition  1() 

hexpack  partition  2() 

hexpack  partition_3 ( ) 

hexpack  partition  4() 

print  '  Partition  Done' 

hexpack  mesh () 

print  '  Mesh  Created' 

hexpack  assembly () 

print  '  Assembly  Part  created' 

hexpack^step ( ) 

print  '  Step  created' 

hexpack_load ( ) 

print  '  Loads  created' 

hexpack^bc ( ) 

print  '  BCs  created' 

hexpack_j  ob ( ) 

print  '  Input  file  created' 


Code  for  writing  the  boundary  conditions:  bc  mnc.py 

##  this  program  writes  the  be  for  the  hexpack  model 
##  and  matrix  failure  (crack  perpendicular  to  the  fibers) 

##  Note:  this  program  requires  the  information  from  run  fb.py 

for  num  in  range (7) : 
case  =  num  +  1 
if  (case  ==  1 ) : 

name  =  'Case  '+  str(case)  +  '.inp' 
output_l  =  open (name,  'w') 
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elif (case  ==  2 )  : 

name  =  'Case  ' +  str(case)  +  '.inp' 
output  2  =  open (name,  ' w') 
elif (case  ==  3)  : 

name  =  'Case  '+  str(case)  +  '.inp' 
output_3  =  open (name,  'w') 
elif (case  ==  4 ) : 

name  =  'Case  '+  str(case)  +  '.inp' 
output_4  =  open (name,  'w') 
elif (case  ==  5) : 

name  =  'Case  '+  str(case)  +  '.inp' 
output_5  =  open (name,  'w') 
elif (case  ==  6) : 

name  =  'Case  '+  str(case)  +  '.inp' 
output  11  =  open (name,  'w') 
elif (case  ==  7 ) : 

name  =  'Case  '+  str(case)  +  '.inp' 
output  12  =  open (name,  'w') 


output  6  =  open ( ' runf ile  2. inp',  'w') 
output  7  =  open (' element  sets. inp',  'w') 
output_8  =  open (' debug_sets . inp ' ,  'w') 

## - 

## - 

def  reading  inp  file()  : 

global  num  node,  inte,  intee,  num  elem,  inte  el 

global  x,  y,  z,  num_n,  xa,  xb,  ya,  yb,  za,  zb,  xab,  yab,  zab 

global  nodel,  node2,  node3,  node4,  node5,  node6,  node7,  node8,  num_el 

global  tern,  tm,  nola,  crack  layer,  thickness,  crack  angle,  outer  layer 

global  num  ori,  bc3,  bc4 

x,  y,  z,  num_n  =  [0],  [0],  [0],  [0] 

nodel,  node2,  node3,  node4=  [0],  [0],  [0],  [0] 

node5,  node6,  node7,  node8  =  [0],  [0],  [0],  [0] 

num_el  =  [0] 

inte,  intee  =  0,  0 

endfile,  node_flag,  elem_flag  =0,  0,  0  #  logical  operators 
num  node,  num  elem  =  0,  0  #  initializing  nodes  and  elements 
num  ori  =  0 
flag_elsets  =  0 

input  =  open (' Hex_Job . inp ' ,  'r') 

strg  =  input . readlines ( ) 

while  inte  in  range ( len ( strg) ) : 
strg_2  =  strg [inte] 

if (strg  2 [ 1 : 8 ] == ' Element ' ) : 
temporary  name  =  strg  2 
print  'Reading  Elements' 
int  el  =  inte 
while (elem  flag  !=  1) : 
int  el  =  int  el  +  1 
strg_3  =  strg[int_el] 
i f ( s  t  r g_3 [ 0 ]=='*' )  : 

elem  flag  =  1 
else : 
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num  elem  =  num  elem  +  1 

elem  reading (na=num  elem,  stt=  strg  3) 

num  el  =  num  el  +  [num  elem] 

nodel  =  nodel  +  [nodi] 

node2  =  node2  +  [nod2] 

node3  =  node3  +  [nod3] 

node4  =  node4  +  [nod4] 

node5  =  node5  +  [nod5] 

node6  =  node6  +  [nod6] 

node7  =  node7  +  [nod7] 

node8  =  node8  +  [nod8] 

inte  =  int  el 

nn  =  num  elem 

del  num  el [num  el. index (0)] 
del  nodel [nodel . index ( 0 ) ] 
del  node2 [node2 . index ( 0 )  ] 
del  node3 [node3 . index ( 0 )  ] 
del  node4 [node4 . index ( 0 )  ] 
del  node5 [node5 . index ( 0 )  ] 
del  node6 [node6 . index ( 0 )  ] 
del  node7 [node7 . index ( 0 )  ] 
del  node8 [node8 . index ( 0 )  ] 
f ace_pairs ( ) 

##  writing  nodes  and  elements 

jjj  =  0 

while  jjj  in  range ( len (x) ) : 

strrg  =  '  ' +str (num_n [j j j ])+','+ '  '+  str(x[jjj])  + 

'  +  str (y [ j  j  j ] )  +  '  '  +  str ( z [jjj] )  +  ' \n ' 

output_l .write (strrg) 
output_2 .write (strrg) 
output_3 .write (strrg) 
output_4 .write (strrg) 
output_5 .write (strrg) 
output_ll .write (strrg) 
output_12 .write (strrg) 

jjj  =  jjj  +  1 

strg  temp  =  '**  End  of  Nodes\n' 
output_l .write (strg_temp) 
output_2 .write (strg_temp) 
output_3 . write ( strg_temp) 
output_4 .write (strg_temp) 
output_5 . write ( strg_temp) 
output_ll .write (strg_temp) 
output_12 .write (strg_temp) 


output  1 .write (temporary  name) 
output  2 .write (temporary  name) 
output  3 .write (temporary  name) 
output  4 .write (temporary  name) 
output  5 .write (temporary  name) 
output  11 .write (temporary  name) 
output  12 .write (temporary  name) 

jjj  =  0 

while  jjj  in  range ( len (num  el)): 
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strg_t_l  =  ('  ' +str (num_el [j j j ])  +  ','  + '  '+  str (nodel [ j j j ]  ) 

+ 

'  +  str (node2 [ j j j ] )  +  '  +  str (node3 [ j j j ] )  + 

'  +  str (node4 [ j j j ] )  +  '  +  str (node5 [ j j j ] )  + 

'  '  +  str (node6 [ j j j ]  )  +  '  '  +  str (node7 [ j j j ] )  + 

'  +  str (node8 [ j j j ] )  +'\n') 
output_l . write ( strg_t_l ) 
output_2 . write ( strg_t_l ) 
output_3 . write ( strg_t_l ) 
output_4 . write ( strg_t_l ) 
output_5 . write ( strg_t_l ) 
output_l 1 . write ( strg_t_l ) 
output_12 . write ( strg_t_l ) 

jjj  =  jjj  +  1 

strg  temp  =  '**  End  of  Elements\n' 
output_l .write (strg_temp) 
output_2 .write (strg_temp) 
output_3 . write ( strg_temp) 
output_4 .write (strg_temp) 
output_5 . write ( strg_temp) 
output_ll .write (strg_temp) 
output_12  .write  (strg__temp) 

##  this  subroutine  creates  the  different  sets  required  to  access 
##  the  change  in  properties  through  the  depth  of  the  model, 
centroids ( ) 

elif ( strg_2 [ 1 : 5 ]  ==  'Node'): 
output_l . write ( strg_2 ) 
output_2 . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
output_4 . write ( strg_2 ) 
output_5 . write ( strg_2 ) 
output_l 1 . write ( strg_2 ) 
output_12 . write ( strg_2 ) 
print  'Reading  Nodes' 
intee  =  inte 
while  (node  flag  !=  1) : 
intee  =  intee  +  1 
strg_2  =  strg [intee] 
if (strg_2[0] =='*') : 

node  flag  =  1 
else : 

num  node  =  num  node  +  1 

node  reading (n=num  node,  st=strg  2) 

num  n  =  num  n  +  [num  node] 

x  =  x  +  [xl] 

y  =  y  +  [yl] 

z  =  z  +  [zl] 

nn  =  num  node 

##  strrg  =  '  '+str(num  n[nn] )+','+'  '+  str(x[nn] )  + 

','+'  '  +  str (y [nn] )  +  ','+'  '  +  str(z [nn] )  +  '\n' 

##  output_l . write ( strrg) 

##  output_2 . write ( strrg) 

##  output_3 . write ( strrg) 

##  output_4 . write ( strrg) 

##  output_5 . write ( strrg) 
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inte  =  intee 
del  x [x . index ( 0 ) ] 
del  y [y. index (0) ] 
del  z  [  z . index ( 0 ) ] 
del  num  n[num  n.index(O)] 

xa,  xb,  ya,  yb,  za,  zb  =  max(x),  min (x) ,  max(y),  min(y), 

min  ( z ) 

xab  =  (xa  +  xb)/2.0 
yab  =  (ya  +  yb)/2.0 
zab  =  ( za  +  zb) /2 . 0 
cal_shf ( ) 

node  swap(nt  =  num  n,  xt  =  x,  yt  =  y,  zt  =  z) 

elif (strg_2 [0:2] =='**') : 

output_l .write (strg [inte] ) 
output_2 .write (strg [inte] ) 
output_3 .write (strg [inte] ) 
output_4 .write (strg [inte] ) 
output_5 .write (strg [inte] ) 
output_l 1 . write ( strg [ inte ] ) 
output_12 .write (strg [inte]  ) 

elif (strg  2 [ 0 : 9] == ' *Boundary  '  )  : 
rigid_body_modes ( ) 
inte  =  inte  +  1 

elif ( strg_2 [0:8]==' * Re start '  )  : 
print  '  writing  Loads ' 
output_l . write ( strg_2 ) 
output_2 . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
output_4 . write ( strg_2 ) 
output_5 . write ( strg_2 ) 
output_l 1 . write ( strg_2 ) 
output_12 . write ( strg_2 ) 

elif (strg_2 [ 0 : 6] == ' *Cload ' ) : 
loads ( ) 

print  'Writing  Loads' 
inte  =  inte  +  1 

elif (strg_2 [0:13] == ' *End  Instance ' ) : 
print  'Writing  Constraints' 
center_constraints () 
corner_constraints () 
face_constraints_3_5_lf () 
edge_constraints_35_36_45_46 ( ) 
edge  constraints  13  14  23  24  f() 
edge  constraints  15  25  16  26  f() 
if (matrix  failure  ==  1) : 

print  'For  matrix  failure' 

edge_constraints  13  14  23  24  15  25  26  16m() 
else : 

##  nf  -  indicates  no  failure 
print  '  No  failure' 
face  constraints  lm ( ) 
edge  constraints  13  14  23  24  nf() 


max  (  z ) , 
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edge  constraints  15_25  16  26  nf() 

output_l . write ( strg_2 ) 
output_2 . write ( strg_2 ) 
output_3 . write ( strg_2  ) 
output_4 . write ( strg_2  ) 
output_5 . write ( strg_2 ) 
output_l 1 . write ( strg_2 ) 
output_12 . write ( strg_2 ) 

elif ( (strg_2 [0 : 6]  ==  '*Elset')  and  ( strg_2 [ 14 : 17 ] == ' Set ' ) ) : 
output_l . write ( strg_2 ) 
output_2 . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
output_4 . write ( strg_2 ) 
output_5 . write ( strg_2 ) 
output_l 1 . write ( strg_2 ) 
output_12 . write ( strg_2 ) 
intel  =  inte 
flag  =  0 

while (flag  ==  0)  : 

intel  =  intel  +  1 
strg_5  =  strg [intel] 
if (strg_5 [0]  !=  ' * ' )  : 

output_l .write (strg_5) 
output_2 .write (strg_5) 
output_3 . write ( strg_5 ) 
output_4 .write (strg_5) 
output_5 . write ( strg_5 ) 
output_ll .write (strg_5) 
output_12 .write (strg_5) 
else : 

flag  =  1 

inte  =  intel  -  1 

if ( f lag_elsets  ==  0) : 
flag_elsets  =  1 

for  ij  in  range (len (s  z^eleras) ) : 

strgg_10  =  ' *Elset,  elset= ' +s_z_elems [ i j ] [ 0 ] + ' ,  '+ 

str ( s_z_elems [ i j ]  [1])  +  '  \n' 

output_7 .write (strgg_10) 
lenself  =  len (s  z  elems[ij]) 
lensel  =  lenself 
im  =  0 

for  im  in  range (2,  lenself,  8) : 
ik  =  im 

checklO,  checkll,  checkl2,  checkl3  =  ik, ik+1 , ik+2 , ik+3 
checkl4,  checkl5,  checkl6,  checkl7  =  ik+4,  ik+5,  ik+6, 

ik+7 

if (checklO  <  lensel)  : 

strgg_ll  =  str ( s_z_elems [ i j ] [ ik] ) + ' ,  ' 

if (checkll<lensel) : 

strgg_ll  =  strgg_l 1+str ( s_z_elems [ i j ] [ ik+1 ] ) + ' , 

I 

if (checkl2<lensel) : 
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strgg 

strgg 

strgg 

strgg 

strgg 

strgg 


str  ( s 


ik+7 


strgg 

strgg 

strgg 

strgg 

strgg 

strgg 


1 


1 


1 


1 


1 


1 


z 


1 


1 


1 


1 


1 


1 


strgg_ll  = 

1+str ( s_z_elems [ ij ]  [ ik+2  ]  )■+  ' ,  ' 

if (checkl3<lensel) : 
strgg_ll  = 

1+str ( s_z_elems [ ij ] [ik+3])+',  ' 

if (checkl4<lensel) : 
strgg  11  = 


f  1 


f  f 


l+str(s  z  elems[ij] [ik+4])+' 

1  +  str ( s_z_elems [ ij ]  [ i k+ 5 ] )  +  ' 

1  +  str ( s_z_elems [ ij ]  [ i k+  6 ] )  +  ' ,  ' 
l+str(s  z  elems[ij] [ i k+7 ] ) + ' ,  ' 


if (checkl5<lensel)  : 
strgg_ll  = 

if (checkl6<lensel) : 
strgg_ll  = 

if (checkl7<lensel) : 
strgg_ll  = 


strgg  11  =  strgg  11  +  ' \n' 
output_7 . write ( strgg_l 1 ) 


for  ij  in  range (len(s  z  elemsm) ) : 

strgg_10  =  ' *Elset,  elset= ' +s_z_elemsm [ i j ]  [ 0 ]  +  '  ,  '+ 

elemsm [ ij ][ 1 ])+ '  \n' 

output_7 .write (strgg_10) 
lenself  =  len (s  z  elemsm[ij]) 
lensel  =  lenself 
im  =  0 

for  im  in  range (2,  lenself,  8) : 
ik  =  im 

checklO,  checkll,  checkl2,  checkl3  =  ik, ik+1 , ik+2 , ik+3 
checkl4,  checkl5,  checkl6,  checkl7  =  ik+4,  ik+5,  ik+6, 

if (checklO  <  lensel) : 

strgg_ll  =  str ( s_z_elemsm [ i j ] [ ik] ) + ' ,  ' 

if (checkllklensel)  : 

strgg  11  =  strgg  ll+str(s  z  elemsm[ij] [ i k+ !])+', 


if (checkl2<lensel)  : 
strgg_ll  = 

l+str(s  z  elemsm[ij] [ ik+2 ] ) + ' ,  ' 

if (checkl3<lensel) : 
strgg_ll  = 


l+str(s  z  elemsm[ij] [ik+3])+',  ' 

if (checkl4<lensel) : 
strgg_ll  = 

l+str(s  z  elemsm[ij] [ i k+4 ] ) + ' ,  ' 


l+str(s  z  elemsm[ij] [ i k+5 ] ) + ' , 

l  +  str(s  z  elemsm[ij]  [ i k+  6 ] )  +  ' , 

l+str(s  z  elemsm[ij] [ i k+7 ] ) + ' , 


if (checkl5<lensel)  : 
strgg_ll  = 

if (checkl6<lensel)  : 
strgg_ll  = 

if (checkl7<lensel) : 
strgg_ll  = 


95 


strgg  11  =  strgg  11  +  ' \n' 
output_7 . write ( strgg_l 1 ) 

elif ( strg_2 [ 0 : 14 ] == ' *Solid  Section') : 
output_l . write ( strg_2 ) 
output_2 . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
output_4 . write ( strg_2 ) 
output_5 . write ( strg_2 ) 
output_l 1 . write ( strg_2 ) 
output_12 .write ( strg_2 ) 

output_7 . write ( strg_2 ) 
intel  =  inte 
flag  =  0 

while (flag  ==  0)  : 

intel  =  intel  +  1 
strg_5  =  strg [intel] 
if (strg_5 [0]  !=  ' *  '  )  : 

output_l .write (strg_5) 
output_2 .write (strg_5) 
output_3 . write ( strg_5 ) 
output_4 .write (strg_5) 
output_5 . write ( strg_5 ) 
output_ll .write (strg_5) 
output_12 .write (strg_5) 

output_7 .write (strg_5) 
else : 

flag  =  1 

inte  =  intel  -  1 

elif (strg  2 [ 1 : 7 ] == ' Orient ' ) : 
output_l . write ( strg_2 ) 
output_2 . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
output_4 . write ( strg_2 ) 
output_5 . write ( strg_2 ) 
output_l 1 . write ( strg_2 ) 
output_12 .write ( strg_2 ) 

output_7 . write ( strg_2 ) 
intel  =  inte 
flag  =  0 

num  ori  =  num  ori  +  1 
while (flag  ==  0)  : 

intel  =  intel  +  1 
strg_5  =  strg[intel] 
if (strg_5 [0]  !=  ' * ' )  : 

output_l .write (strg_5) 
output_2 .write (strg_5) 
output_3  .  write  ( strg__5 ) 
output_4 .write (strg_5) 
output_5 . write ( strg_5 ) 
output_ll .write (strg_5) 
output_12 .write (strg_5) 
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output_7 .write (strg_5) 
else : 

flag  =  1 

inte  =  intel  -  1 

elif ( strg  2 [1:13] == ' End  Assembly ' ) : 

strggO  =  ' *Nset,  nset=n  set  1,  instance=hexpck  1  \n 

strggl  =  str (c_l ) + ' \n ' 

strgg  =  strggO  +  strggl 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 

output_ll .write (strgg) 

output_12 .write (strgg) 

strggO  =  ' *Nset,  nset=n  set  2,  instance=hexpck  1  \n 

strggl  =  str (c_2 ) + ' \n ' 

strgg  =  strggO  +  strggl 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 

output_ll .write (strgg) 

output_12 .write (strgg) 

strggO  =  ' *Nset,  nset=n  set  3,  instance=hexpck  1  \n' 
strggl  =  str (c_5) + ' \n ' 
strgg  =  strggO  +  strggl 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 

strggO  =  ' *Nset,  nset=n  set  4,  instance=hexpck  1  \n' 
strggl  =  str (c_3) + ' \n ' 
strgg  =  strggO  +  strggl 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 

strggO  =  ' *Nset,  nset=n  set  5,  instance=hexpck  1  \n 
strggl  =  str (bodyc) + ' \n ' 
strgg  =  strggO  +  strggl 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 


97 


output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 

strggO  =  ' *Nset,  nset=n  set  6,  instance=hexpck  1  \n' 

strggl  =  str (c_6) + ' \n ' 
strgg  =  strggO  +  strggl 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 

strggO  =  ' *Nset,  nset=n  set  7,  instance=hexpck  1  \n' 

strggl  =  str (c_6_x) + ' \n ' 
strgg  =  strggO  +  strggl 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 

strggO  =  ' *Nset,  nset=n  set  8,  instance=hexpck  1  \n' 

strggl  =  str (c_6_y) + ' \n ' 
strgg  =  strggO  +  strggl 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 

strggO  ='*Nset,  nset=n  set  9,  instance=hexpck  1,  internal, 

generate  \n' 

strggl  =  str ( 1 )+','+ '  '+  strfnum  node)+','+'  ' +str ( 1 ) + ' \n ' 

strgg  =  strggO  +  strggl 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 

output_l . write ( strg_2 ) 
output_2 . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
output_4 . write ( strg_2 ) 
output_5 . write ( strg_2 ) 
output_l 1 . write ( strg_2 ) 
output_12 . write ( strg_2 ) 
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print  'Nsets  for  rigid  body  modes  and  loads  -  created' 

elif (strg_2 [ 1 : 14 ]==' Output,  field') : 
output_l . write ( strg_2 ) 
output_2 . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
output_4 . write ( strg_2 ) 
output_5 . write ( strg_2 ) 
output_l 1 . write ( strg_2 ) 
output_12 .write ( strg_2 ) 

strggO  =  ' *Element  output, position=centroid  \n ' 

strggl  =  'Evol,  S  \n' 

strgg  =  strggO  +  strggl 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 

output_ll .write (strgg) 

output_12 .write (strgg) 


else : 

output_l .write (strg [inte]  ) 
output_2 .write (strg [inte] ) 
output_3 .write (strg [inte]  ) 
output_4 .write (strg [inte]  ) 
output_5 .write (strg [inte] ) 
output_ll .write (strg [inte]  ) 
output_12 .write (strg [inte] ) 

inte  =  inte  +  1 
else : 

print  'End  of  File' 

output_l . close ( ) 
output_2 . close ( ) 
output_3 . close  ( ) 
output_4 . close ( ) 
output_5 . close ( ) 
output_l 1 . close  ( ) 
output_12 . close  ( ) 
output_6 . close ( ) 
output_7 . close ( ) 
output_8 . close ( ) 

## _ 

## - 

def  cal_shf ( ) : 
global  shf 

temp_x,  temp_y,  temp_z  =  [0],  [0],  [0] 

for  j  in  range ( len (x) ) : 

tt  =  abs (x [ j ] ) /10000 . 0 
tt  =  str(tt) 

temp  x  =  temp  x  +  [int  (len  (tt) ) ] 
tt  =  abs (y [ j ]) /1 0000 . 0 
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tt  =  str(tt) 

temp_y  =  temp_y  +  [int (len (tt)  )  ] 

tt  =  abs ( z [ j ] ) /1 0000 . 0 
tt  =  str(tt) 

temp_z  =  temp_z  +  [int (len (tt) ) ] 

del  temp  x[temp  x. index (0) ] 
del  temp_y [temp_y. index (0)  ] 
del  temp  z[temp  z. index (0) ] 

tx  i,  ty  i  =  temp  x . index (max (temp  x) ) ,  temp  y. index (max (temp  y) ) 
tz  i  =  temp  z . index (max (temp  z) ) 

tx  max  =  x[tx  i] 
ty_max  =  y[ty_i] 
tz  max  =  z [tz  i ] 
tt  =  [tx  max,  ty  max,  tz  max] 

ttt  =  [len (str (tx_max) ) ,  len (str (ty_max) ) ,  len (str (tz_max) ) ] 

tttt  =  str (tt [ttt . index (max (ttt) )]  ) 

tttt  =  tttt . replace ('.' ,  '  ') 

tttt  =  tttt.splitO 

t5  =  tttt[l] 

t5  =  len  (t5) 

sh  =  ' IE- ' +str  (t5-3 ) 

shf  =  float ( sh) 

if (shf  >  le-03) : 

print  '  ' 

print  'Warning  :  SHF  too  low  -  Possible  Error' 

print  '  ' 


def  node_reading (n,  st)  : 

global  num  nl,  xl,  yl,  zl 
num  nl  =  n 

xl ,  yl ,  zl  =  0 . ,  0 . ,  0 . 

n  ck  =  0 

strg_n  =  st . replace  (',' ,  '  ') 

strg_n  =  strg_n . split ( ) 

n_k  =  int  ( strg__n  [  0  ]  ) 

xl  =  f loat ( strg_n [ 1 ] ) 

yl  =  float (strg_n [2 ] ) 

zl  =  f loat ( strg_n [ 3 ] ) 


def  elem_reading (na,  stt)  : 

global  nodi,  nod2,  nod3,  nod4,  nod5,  nod6,  nod7,  nod8 

nodi,  nod2,  nod3,  nod4,  nod5,  nod6,  nod7,  nod8  =  0,  0,  0,  0,  0,  0,  0,  0 

strg_n  =  stt . replace (',' ,  '  ') 

strg_n  =  strg_n . split ( ) 

n_k  =  int ( strg_n [ 0 ] ) 

nodi  =  int (strg_n [ 1 ] ) 

nod2  =  int (strg_n [2] ) 

nod3  =  int ( strg_n [ 3 ] ) 

nod4  =  int ( strg_n [ 4 ] ) 

nod5  =  int ( strg_n [ 5 ] ) 
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nod6  =  int (strg_n [6] ) 
nod7  =  int (strg_n [7 ] ) 
nod8  =  int (strg_n [ 8] ) 

# - 

# - 

def  node_swap (nt,  xt,  yt,  zt) : 

##  this  subroutine  detects  the  center  nodes,  corner  nodes,  edge  nodes  and 
face  nodes. 

global  tem,  tm 

global  c_l,  c_2,  c_3,  c_4,  c_5,  c_6,  c_l_l,  c_l_2,  bodyc 

global  cl35,  cl36,  cl46,  cl45,  c235,  c236,  c246,  c245 

global  ct_35,  ct_36,  ct_45,  ct_46 

global  e_35,  e_36,  e_45,  e_46 

global  e_15f,  e_16f,  e_25f,  e_26f 

global  e_13f ,  e_14f,  e_23f,  e_24f 

global  e  15m,  e  16m,  e_25m,  e_26m 

global  e  13m,  e  14m,  e  23m,  e  24m 

global  f_l,  f_27  f_3,  f_4,  shf 

global  c_6_x,  c_6_y 

global  f 135,  fl36,  fl45,  fl46 

global  f235,  f236,  f245,  f246 

global  radi 

global  xtestcl,  ytestcl,  ztestcl,  xtestc2,  ytestc2,  ztestc2 

global  xtestc3,  ytestc3,  ztestc3,  xtestc4,  ytestc4,  ztestc4 

j  =  0 


cl,  c 

1 

M 

O 

3 ,  c 

LO 

1 

o 

c 

6 

= 

0,0, 0,0, 0,0 

1 — 1 
\ — 1 

o 

c_12 , 

c  21, 

II 

CM 

CM 

O 

0, 

0 

r 

o 

o 

c  1  1, 

c  1 

2  =  0, 

0 

cl35. 

cl36. 

cl46. 

cl45  = 

0, 

0, 

o. 

0 

c235. 

c236. 

c246. 

c245  = 

0, 

0, 

o. 

0 

f  135, 

f  136, 

f  145, 

f  146  = 

0, 

0, 

0, 

0 

f235. 

f236. 

f245. 

f246  = 

0, 

0, 

0, 

0 

while 

j  in 

range ( 

len (nt) ) 

: 

tx 

,  ty. 

tz  = 

x  [  j  ]  ,  y 

[j] 

/ 

Z  [ 

j] 

if ( (abs (tx-xab) <=  shf) and (abs (ty-yab) <=shf ) and (abs (tz-za) <=shf ) ) : 
c_l  =  nt[j] 

print  ' Face  center  -  1 '  ,  cl 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-yab) <=shf ) and (abs (tz-zb) <=shf ) ) : 
c_2  =  nt[j] 

print  ' Face  center  -  2 '  ,  c  2 

elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_3  =  nt  [  j ] 

print  ' Face  center  -  3 ' ,  c_3 

elif ( (abs (tx-xab) <=shf ) and (abs (yb-ty) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_4  =  nt[j] 

print  ' Face  center  -  4 '  ,  c  4 

elif ( (abs (tx-xa) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_5  =  nt[j] 

print  ' Face  center  -  5 ' ,  c_5 

elif ( (abs (tx-xb) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_6  =  nt[j] 
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print  ' Face  center  -  6 ' ,  c_6 

elif ( (abs (xa-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (za-tz) <=shf ) ) : 
cl35  =  nt [ j ] 

print  'Corner  135',  cl35 

elif ( (abs (xb-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (za-tz) <=shf ) ) : 
cl36  =  nt [ j ] 

print  'Corner  136',  cl36 

elif ( (abs (xb-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (za-tz) <=shf ) ) : 
cl46  =  nt [ j ] 

print  'Corner  146',  cl46 

elif ( (abs (xa-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (za-tz) <=shf ) ) : 
cl45  =  nt  [  j ] 

print  'Corner  145',  cl45 

elif ( (abs (xa-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (zb-tz) <=shf )  )  : 
c235  =  nt [ j ] 

print  'Corner  235',  c235 

elif ( (abs (xb-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (zb-tz) <=shf ) ) : 
c236  =  nt [ j ] 

print  'Corner  236',  c236 

elif ( (abs (xb-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (zb-tz) <=shf ) ) : 
c246  =  nt [ j ] 

print  'Corner  246',  c246 

elif ( (abs (xa-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (zb-tz) <=shf ) ) : 
c245  =  nt [ j ] 

print  'Corner  245',  c245 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-yab) <=shf ) and (abs (tz-zab) <=shf )  ) 
bodyc  =  nt[j] 

elif ( (abs (tx-xb) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz-za) <=shf ) ) : 
c_6_x  =  nt[j] 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-ya) <=shf ) and (abs (tz-za) <=shf ) ) : 
c_6_y  =  nt[j] 

j  =  j  +  1 

tm  =  [cl35,  cl36,  cl45,  cl46,  c235,  c236,  c245,  c246] 
tem  =  [c_l,  c_2,  c_3,  c_4,  c_5,  c_6] 

if ( 0  in  tm) : 

print  'Zero  in  tm' 
else : 

print  ' TM  is  complete  ' 

print  'Center  nodes  &  Corner  nodes  are  identified' 

xtestcl=x [cl35  -1] 
ytestcl=y [cl 35-1 ] 
ztestcl=z [cl35-l ] 

xtestc2=x [cl36  -1] 
ytestc2=y [cl36  -1] 
ztestc2=z [cl36  -1] 

xtestc3=x [cl46  -1] 
ytestc3=y [cl46  -1] 
ztestc3=z [cl46  -1] 
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xtestc4=x [cl45  -1] 
ytestc4=y [cl45  -1] 
ztestc4  =  z  [cl45  -1] 

radi  =  r  fiber 
j  =  0 

while  j  in  range (len (nt) ) : 

tx,  ty,  tz  =  x[j],  y [ j ] ,  z [ j ] 

if (  (abs (ty-ya) <=shf ) and (abs (tz-za) <=shf ) and (abs (tx+radi- 
xtestcl ) <=shf )  ) : 

f 135  =  nt [ j ] 

##  print  'fl35  '  ,  fl35 

elif (  (abs (ty-ya) <=shf ) and (abs (tz-za) <=shf ) and (abs (tx-radi- 
xtestc2 ) <=shf )  ) : 

f 136  =  nt [ j ] 

##  print  'fl36  '  ,  fl36 

elif (  (abs (ty-yb) <=shf ) and (abs (tz-za) <=shf ) and (abs (tx+radi- 
xtestcl ) <=shf )  ) : 

f 145  =  nt [ j ] 

##  print  'fl45  '  ,  fl45 

elif (  (abs (ty-yb) <=shf ) and (abs (tz-za) <=shf ) and (abs (tx-radi- 
xtestc2 ) <=shf )  ) : 

f 146  =  nt [ j ] 

##  print  'fl46  '  ,  fl46 

elif (  (abs (ty-ya) <=shf ) and (abs (tz-zb) <=shf ) and (abs (tx+radi- 
xtestcl ) <=shf )  ) : 

f235  =  nt [ j ] 

##  print  'f235  '  ,  f235 

elif (  (abs (ty-ya) <=shf ) and (abs (tz-zb) <=shf ) and (abs (tx-radi- 
xtestc2 ) <=shf )  ) : 

f236  =  nt [ j ] 

##  print  ' f236  '  ,  f236 

elif (  (abs (ty-yb) <=shf ) and (abs (tz-zb) <=shf ) and (abs (tx+radi- 
xtestcl ) <=shf )  ) : 

f245  =  nt [ j ] 

##  print  'f245  '  ,  f245 

elif (  (abs (ty-yb) <=shf ) and (abs (tz-zb) <=shf ) and (abs (tx-radi- 
xtestc2 ) <=shf )  ) : 

f246  =  nt [ j ] 

##  print  'f246  '  ,  f246 

j  =  j  +  1 

## _ 

## - 

##  subroutine  to  detect  the  edge  node  35  36  45  46 

ct_35,  ct_36,  ct_45,  ct_46  =  0,  0,  0,  0 
ct_15f,  ct_16f,  ct_25f,  ct_26f  =  0,  0,  0,  0 

ct  13f,  ct  14f,  ct  23f,  ct  24f  =  0,  0,  0,  0 
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ct_15m,  ct_16m,  ct_25m,  ct_26m  =0,  0,  0,  0 
ct  13m,  ct  14m,  ct_23m,  ct  24m  =  0,  0,  0,  0 


j  =  0 

front,  fronta,  frontb,  frontc  =  0,  0,  0,  0 
frontd,  fronte,  frontf,  frontg  =  0,  0,  0,  0 
fronth,  fronti,  frontj,  frontk  =  0,  0,  0,  0 


frontmm,  frontma,  frontmb,  frontmc  =0,  0,  0,  0 
frontmd,  frontme,  frontmf,  frontmg  =  0,  0,  0,  0 
frontmh,  frontmi,  frontmj ,  frontmk  =  0,  0,  0,  0 


e 

35,  e  36,  e 

kO 

■vT 

1 

(U 

LO 

1 

=  [0], 

[0]  , 

[0]  , 

[0] 

e 

15f ,  e  1 6f , 

e  25f,  e 

2  6f  = 

[0]  , 

[0]  , 

[0] , 

[0] 

e 

13f,  e_14f. 

e  23f,  e 

24f  = 

[0]  , 

[0]  , 

[0] , 

[0] 

e 

15m,  e  16m, 

e  25m,  e 

2  6m  = 

[0]  , 

[0]  , 

[0] , 

[0] 

e 

13m,  e  14m, 

e  23m,  e 

24m  = 

[0]  , 

[0] , 

[0] , 

[0] 

while  j  in  range (len (nt) ) : 

tx,  ty,  tz  =  x [ j ] ,  y [ j ] ,  z [ j ] 
check  =  nt[j] 

front,  fronta,  frontb,  frontc  =  0,  0,  0,  0 

frontd,  fronte,  frontf,  frontg  =  0,  0,  0,  0 

fronth,  fronti,  frontj,  frontk  =  0,  0,  0,  0 

frontmd,  frontme,  frontmf,  frontmg  =  0,  0,  0,  0 

frontmh,  frontmi,  frontmj,  frontmk  =  0,  0,  0,  0 

if  check  in  tern: 

front,  fronta,  frontb,  frontc  =  1,  1,  1,  1 

frontd,  fronte,  frontf,  frontg  =  1,  1,  1,  1 

fronth,  fronti,  frontj,  frontk  =  1,  1,  1,  1 

frontmd,  frontme,  frontmf,  frontmg  =  1,1, 1,1 

frontmh,  frontmi,  frontmj,  frontmk  =  1,1,  1,1 

if  check  in  tm: 

front,  fronta,  frontb,  frontc  =  1,  1,  1,  1 

frontd,  fronte,  frontf,  frontg  =  1,  1,  1,  1 

fronth,  fronti,  frontj,  frontk  =  1,  1,  1,  1 

frontmd,  frontme,  frontmf,  frontmg  =  1,1,  1,1 

frontmh,  frontmi,  frontmj,  frontmk  =  1,1, 1,1 

##  EDGE  35 

if ( (abs (tx-xa) <=shf ) and (abs (ty-ya) <=shf ) ) : 
if (front ! =1 ) : 

ct_35  =  ct_35  +  1 
e_35  =  e_35  +  [check] 

##  EDGE  36 

elif ( (abs (tx-xb) <=shf ) and (abs (ty-ya) <=shf )  )  : 
if (fronta ! =1 ) : 

ct_36  =  ct_36  +  1 
e  36  =  e  36  +  [check] 
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##  EDGE  45 

elif (  (abs (tx-xa) <=shf ) and (abs (ty-yb) <=shf )  ) 

if ( f rontb ! =1 ) : 

ct_45  =  ct_45  +  1 
e  45  =  e  45  +  [check] 


##  EDGE  46 

elif ( (abs (tx-xb) <=shf ) and (abs (ty-yb) <=shf ) ) : 
if ( f rontc ! =1 ) : 

ct_4  6  =  ct_4  6  +  1 
e  46  =  e  46  +  [check] 


##  EDGE  15 

elif ( (abs (tx-xa) <=shf) and (abs(tz-za)<=shf) )  : 
if ( f rontd ! =1 ) : 

if ( ( (abs ( -ty+ytestc4 ) -radi) <=shf )  or 

( (abs ( -ty+ytestcl ) -radi) <=shf ) ) : 
ct  15f  =  ct  15f  +  1 
e  15f  =  e  15f+  [check] 
else : 

ct  15m  =  ct  15m  +  1 
e  15m  =  e  15m+  [check] 


##  EDGE  25 

elif ( (abs (tx-xa) <=shf) and (abs (tz-zb) <=shf ) ) : 
if ( f ronte ! =1 ) : 

if ( ( (abs ( -ty+ytestc4 ) -radi) <=shf )  or 
( (abs (-ty+ytestcl) -radi) <=shf ) ) : 
ct  25f  =  ct  25f  +  1 
e  25f  =  e  25f  +  [check] 
else : 

ct  25m  =  ct  25m  +  1 
e  25m  =  e  25m  +  [check] 


##  EDGE  16 

elif ( (abs (tx-xb) <=shf) and (abs(tz-za)<=shf) ) : 
if ( f rontf ! =1 ) : 

if ( ( (abs ( -ty+ytestc3 ) -radi) <=shf )  or 
( (abs ( -ty+ytestc2 ) -radi) <=shf ) ) : 
ct  16f  =  ct  16f  +  1 

e  16f  =  e  16f  +  [check] 
else : 

ct  16m  =  ct  16m  +  1 

e  16m  =  e  16m  +  [check] 


##  EDGE  26 

elif ( (abs (tx-xb) <=shf ) and (abs (tz-zb) <=shf )  )  : 
if ( f rontg ! =1 ) : 

if ( ( (abs ( -ty+ytestc3 ) -radi) <=shf )  or 

( (abs ( -ty+ytestc2 ) -radi) <=shf )  )  : 
ct  26f  =  ct  26f  +  1 
e  26f  =  e  26f  +  [check] 
else : 

ct  26m  =  ct  26m  +  1 
e  26m  =  e  26m  +  [check] 
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##  EDGE  13 

el if ( (abs (ty-ya) <=shf ) and (abs(tz-za)<=shf) )  : 
if ( f ronth ! =1 ) : 

if (  (tx<x [fl35— 1] )  and  (tx>x [ f 136-1 ] )  ): 
ct  13m  =  ct  13m  +  1 
e  13m  =  e  13m  +  [check] 
else : 

ct  13f  =  ct  13f  +  1 
e  13f  =  e  13f  +  [check] 

##  EDGE  14 

el if ( (abs (ty-yb) <=shf ) and (abs(tz-za)<=shf) ) : 
if ( f ronti ! =1 ) : 

if ( (tx<x [f 145-1] )  and  (tx>x [fl46-l]  )  ): 
ct  14m  =  ct  14m  +  1 
e  14m  =  e  14m  +  [check] 
else : 

ct_14f  =  ct_14f  +  1 
e  14f  =  e  14f  +  [check] 

##  EDGE  23 

el if ( (abs (ty-ya) <=shf) and (abs (tz-zb) <=shf ) )  : 
if ( front j ! =1 ) : 

if ( (tx<x [f235-l] )  and  (tx>x [f236-l] )  ): 
ct  23m  =  ct  23m  +  1 
e  23m  =  e  23m  +  [check] 
else : 

ct  23f  =  ct  23f  +  1 
e  23f  =  e  23f  +  [check] 

##  EDGE  24 

elif ( (abs (ty-yb) <=shf ) and (abs (tz-zb) <=shf ) )  : 
if ( f rontk ! =1 ) : 

if ( (tx<x [f 245-1] )  and  (tx>x [f246-l] )  ): 
ct  24m  =  ct  24m  +  1 
e  24m  =  e  24m  +  [check] 
else : 

ct_24f  =  ct_24f  +  1 
e  24f  =  e  24f  +  [check] 


j  =  j  +  1 

del  e_35 [e_35 . index ( 0 )  ] 
del  e_36 [e_36 . index (0) ] 
del  e_45 [e_45 . index (0) ] 
del  e_4 6 [e_4 6 . index ( 0 )  ] 
del  e_15f [e_15f. index (0) ] 
del  e_l 6f [e_l 6f . index ( 0 )  ] 
del  e_25f [e_25f. index (0)  ] 
del  e_2 6f [e_2 6f . index ( 0 ) ] 
del  e_13f [e_13f. index (0)  ] 
del  e_23f [e_23f. index (0)  ] 
del  e  14f[e  14f. index (0)  ] 
del  e  24f[e  24f. index (0)  ] 
del  e  15m[e  15m. index (0)  ] 
del  e  16m[e  16m. index (0) ] 
del  e  25m[e  25m. index (0)  ] 
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del  e  26m[e  26m. index (0) ] 
del  e  13m[e  13m. index (0) ] 
del  e  23m[e  23m. index (0) ] 
del  e  14m[e  14m. index (0) ] 
del  e  24m[e  24m. index (0) ] 
print  'Edge  nodes  are  identified' 

#### - 

####  nodes  on  the  edges  are  identified.  These  nodes  have  to  be  paired  for 
writing 

####  the  constraint  equations.  the  node  pairs  are  based  on  the  boundary 
conditions . 

global  e_3635,  e_4635,  e_4535 
global  ct_e_3635,  ct_e_4535,  ct_e_4635 
e_3635,  e_4535,  e_4635  =  [0],  [0],  [0] 

ct_e_3635,  ct_e_4635,  ct_e_4535  =  0,0,0 
global  e_1615f ,  e_2615f,  e_2515f 
global  ct_e_1615f,  ct_e_2615f  ,  ct_e_2515f 
e_2615f ,  e_1615f,  e_2515f  =  [0],  [0],  [0] 

ct_e_1615f,  ct_e_2615f,  ct_e_2515f  =0,  0,  0 

global  e  1615m,  e  2615m,  e  2515m 
global  ct  e  1615m,  ct  e  2615m  ,  ct  e  2515m 
e_2615m,  e_1615m,  e_2515m  =  [0],  [0] ,  [0] 

ct_e_1615m,  ct_e_2615m,  ct_e_2515m  =0,  0,  0 

##  for  matrix  failure 

global  e_2423m,  e  2625m 
global  ct  e  2423m,  ct  e  2625m 
e  2423m,  e  2625m  =  [0],  [0] 

ct  e  2423m,  ct  e_2625m  =  0,  0 

k, m  =  0,0 

if (ct  16m  !=  ct  15m) : 

print  'The  edges  nodes  are  not  compatible  16  15  --  check  the 

code ' 

while  k  in  range (len (e  16m)): 
checkl  =  e  16m[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  15m)): 
check2  =  e  15m[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tyl-ty2) <=shf ) : 

ct  e  1615m  =  ct  e  1615m  +  2 
e  1615m  =  e  1615m  +  [checkl] 
e  1615m  =  e  1615m  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e  1615m[e  1615m. index (0) ] 

if ( (ct  e  1615m/ct  15m  !=  2)  and  (ct  e  1615m/ct  15m  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  16  and  15  M' 
else : 

print  '  Edge  pairs  16  and  15  M  are  identified' 

#### - 

k, m  =  0,0 

if (ct_16f  ! =  ct_15f ) : 

print  'The  edges  nodes  are  not  compatible  16  15  --  check  the 

code ' 

while  k  in  range (len (e  1 6f ) ) : 
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checkl  =  e  16f[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1], 
m  =  0 

while  m  in  range (len (e  15f) ) : 
check2  =  e  15f[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  - 
if (abs (tyl-ty2) <=shf )  : 


ct  e  1615f  =  ct  e  1615f  +  2 
e_1615f  =  e_1615f_+  [checkl] 
e_1615f  =  e__1615f  +  [check2] 
m  =  m  +  1 


z [checkl  -  1 ] 


1 ]  ,  z [check2  - 


1] 


k  =  k  +  1 

del  e_1615f [e_1615f . index (0)  ] 

if ( (ct_e_1615f/ct_15f  !=  2)  and  (ct_e_1615f /ct_15f  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  16  and  15  F' 
else : 

print  '  Edge  pairs  16  and  15  F  are  identified' 

#### - 

k,  m  =  0,  0 
if (ct_15f  ! =  ct_26f) : 

print  'The  edges  nodes  are  not  compatible  15  26  --  check  the 

code ' 

while  k  in  range (len (e  2 6f ) )  : 
checkl  =  e  2 6 f [ k ] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  1 5 f ) )  : 
check2  =  e  15f[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tyl-ty2) <=shf ) : 

ct  e  2615f  =  ct  e  2615f  +  2 
e_2615f  =  e_2615f_+  [checkl] 
e_2615f=  e_2615f  +  [check2] 
m  =  m  +  1 


k  =  k  +  1 

del  e_2  615f [e_2  615f . index (0)  ] 

if ( (ct_e_2615f/ct_15f  !=  2)  and  (ct_e_2615f /ct_26f  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  15  and  26  F  ' 
else : 

print  '  Edge  pairs  15  and  26  F  are  identified' 

## - 

k,  m  =  0,  0 

if (ct  15m  !=  ct  26m) : 

print  'The  edges  nodes  are  not  compatible  15  26  M  --  check  the 

code ' 

while  k  in  range (len (e  26m)): 
checkl  =  e  26m[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  15m)): 
check2  =  e  15m[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tyl-ty2) <=shf )  : 

ct  e  2615m  =  ct  e  2615m  +  2 
e  2615m  =  e  2615m  +  [checkl] 
e  2615m  =  e  2615m  +  [check2] 
m  =  m  +  1 
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k  =  k  +  1 

del  e  2615m[e  2615m. index (0) ] 

if ( (ct  e  2615m/ct  15m  !=  2)  and  (ct  e  2615m/ct  26m  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  15  and  26  M' 
else : 

print  '  Edge  pairs  15  and  26  M  are  identified' 


k,  m  =  0,  0 
if (ct_25f  ! =  ct_15f ) : 

print  'The  edges  nodes  are  not  compatible  15  25  --  F  check  the 

code ' 

while  k  in  range (len (e_25f) ) : 
checkl  =  e  25f[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  15f) ) : 
check2  =  e  15f[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tyl-ty2) <=shf ) : 

ct  e  2515f  =  ct  e  2515f  +  2 
e_2515f  =  e_2515f_+  [checkl] 
e_2515f  =  e_2515f  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_2  515f [e_2515f . index (0)  ] 

if ( (ct_e_2515f/ct_25f  !=  2)  and  (ct_e_2515f /ct_15f  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  F  Edges  25  and  15' 
else : 

print  '  Edge  pairs  25  and  15  F  are  identified' 

#### - 

k,  m  =  0,  0 

if (ct  25m  !=  ct  15m) : 

print  'The  edges  nodes  are  not  compatible  15  25  --  M  check  the 

code ' 

while  k  in  range (len (e_25m) ) : 
checkl  =  e  25m[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  15m)): 
check2  =  e  15m[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tyl-ty2) <=shf )  : 

ct  e  2515m  =  ct  e  2515m  +  2 
e_2515m  =  e  2515m  +  [checkl] 
e_2515m  =  e  2515m  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e  2515m[e  2515m. index (0) ] 

if ( (ct  e  2515m/ct  25m  !=  2)  and  (ct  e  2515m/ct  15m  !=  2)): 

print  '  Error  in  identifying  edge  pairs  M  -  Edges  25  and  15' 
else : 

print  '  Edge  pairs  25  and  15  M  are  identified' 

#### - 

k,  m  =  0,  0 
if (ct_35  !=  ct_46) : 

print  'The  edges  nodes  are  not  compatible  35  45  --  check  the 

code ' 
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while  k  in  range (len (e  46)): 
checkl  =  e  4 6 [ k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range ( len (e_35 )) : 
check2  =  e  35 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tzl-tz2 ) <=shf ) : 

ct_e_4635  =  ct_e_4635  +  2 
e_4  635  =  e_4  635  +  [checkl] 
e_4635  =  e_4635  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_4 635  [e_4 635 . index ( 0 )  ] 

if ( (ct_e_4635/ct_35  !=  2)  and  (ct_e_4635/ct_46  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  35  and  46' 
else : 

print  '  Edge  pairs  35  and  46  are  identified' 

#### - 

k,  m  =  0,  0 
if (ct_36  !=  ct_35) : 

print  'The  edges  nodes  are  not  compatible  36  35  --  check  the 

code ' 

while  k  in  range (len (e_36) ) : 
checkl  =  e_36[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range ( len (e_35 )) : 
check2  =  e  35 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tzl-tz2 ) <=shf ) : 

ct_e_3635  =  ct_e_3635  +  2 
e_3635  =  e_3635  +  [checkl] 
e_3635  =  e_3635  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_3635  [e_3635 . index (0)  ] 

if ( (ct_e_3635/ct_36  !=  2)  and  (ct_e_3635/ct_35  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  36  and  35' 
else : 

print  '  Edge  pairs  36  and  35  are  identified' 

#### - 

k,  m  =  0,  0 
if (ct_45  !=  ct_35) : 

print  'The  edges  nodes  are  not  compatible  45  46  --  check  the 

code ' 

while  k  in  range (len (e  45)): 
checkl  =  e  45 [k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range ( len (e_35 )) : 
check2  =  e  35 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tzl-tz2 ) <=shf ) : 

ct_e__4  535  =  ct_e_4  535  +  2 
e_4535  =  e_4535  +  [checkl] 
e  4535  =  e  4535  +  [check2] 
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m  =  m  +  1 
k  =  k  +  1 

del  e_4535  [e_4535 . index (0)  ] 

if ( (ct_e_4535/ct_45  !=  2)  and  (ct_e_4535/ct_35  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  45  and  35' 
else : 

print  '  Edge  pairs  45  and  35  are  identified' 

#### - 

#### - 

global  ct  e  1413f,  ct  e  2313f,  ct  e  2413f 
global  e_1413f,  e_2313f7  e_2413f 
e_1413f ,  e_2313f ,  e_2413f  =  [0],  [0],  [0] 

ct_e_1413f,  ct_e_2313f,  ct_e_2413f  =0,  0,  0 
k,  m  =  0,  0 
if (ct_14f  ! =  ct_13f ) : 

print  'The  edges  nodes  are  not  compatible  14  13  F  --  check  the 
while  k  in  range (len (e  1 4 f ) )  : 
checkl  =  e  1 4  f [ k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  1 3 f ) )  : 
check2  =  e  13f[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if ( (abs (txl-tx2) <=shf )  and  (abs (tyl+ty2 ) <=shf ) ) : 
ct_e_1413f  =  ct_e_1413f  +  2 
e_1413f  =  e_1413f  +  [checkl] 
e_1413f  =  e__1413f  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_1413f [e_1413f . index (0) ] 

if ( (ct_e_1413f/ct_14f  !=  2)  and  (ct_e_1413f /ct_13f  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  14  and  13  F 

Region ' 

else : 

print  '  Edge  pairs  14  and  13  F  are  identified' 

#### - 

k,  m  =  0,  0 
if (ct_23f  ! =  ct_13f ) : 

print  'The  edges  nodes  are  not  compatible  23  24  F  --  check 

code ' 

while  k  in  range (len (e_23f) ) : 
checkl  =  e  23f[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  13f) ) : 
check2  =  e  13f[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (txl-tx2) <=shf ) : 

ct  e  2313f  =  ct  e  2313f  +  2 
e_2313f  =  e_2313f~+  [checkl] 
e_2313f  =  e_2313f  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_2313f [e_2313f . index (0) ] 

if ( (ct  e  2313f/ct  23f  !=  2)  and  (ct  e  2313f/ct  13f  !=  2)): 
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print  '  Error  in  identifying  edge  pairs  -  Edges  23  and  13  F 

Region ' 

else : 

print  '  Edge  pairs  23  and  13  F  are  identified' 

#### - 

k,  m  =  0,  0 
if (ct_13f  ! =  ct_24f ) : 

print  'The  edges  nodes  are  not  compatible  13  24  F  --  check  the 

code ' 

while  k  in  range (len (e  2 4 f )  )  : 
checkl  =  e  24f[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  13f) ) : 
check2  =  e  13f[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if ( (abs (txl-tx2 ) <=shf )  and  (abs (tyl+ty2 ) <=shf ) ) : 
ct_e_2413f  =  ct_e_2413f  +  2 
e_2413f  =  e_2413f  +  [checkl] 
e_2413f  =  e_2413f  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_2413f [e_2413f . index (0) ] 

if ( (ct_e_2413f / ct_13f  !=  2)  and  (ct_e_2413f /ct_24f  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  13  and  24  F 

Region ' 

else : 

print  '  Edge  pairs  13  and  24  F  are  identified  ' 

#### - 

global  ct  e  1413m,  ct  e  2313m,  ct  e  2413m 
global  e  1413m,  e  2313m,  e  2413m 
e_1413m,^e_2313m,~e_2413m  =  [0],  [0],  [0] 

ct  e  1413m,  ct  e  2313m,  ct  e  2413m  =  0,  0,  0 

k,  m  =  0,  0 

if (ct  14m  !=  ct  13m) : 

print  'The  edges  nodes  are  not  compatible  14  24  M  --  check  the  code' 
while  k  in  range (len (e  14m)): 
checkl  =  e  14m[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  13m)): 
check2  =  e  13m[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if ( (abs (txl-tx2 ) <=shf )  and  (abs (tyl+ty2 ) <=shf ) ) : 
ct  e  1413m  =  ct  e  1413m  +  2 
e  1413m  =  e  1413m  +  [checkl] 
e  1413m  =  e  1413m  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e  1413m[e  1413m. index (0) ] 

if ( (ct  e  1413m/ct  14m  !=  2)  and  (ct  e  1413m/ct  13m  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  14  and  13  M 

Region ' 

else : 

print  '  Edge  pairs  14  and  13  M  are  identified' 

###### - 
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code 


k,  m  =  0,  0 
if (ct  23m  !=  ct  13m) : 

print  'The  edges  nodes  are  not  compatible  23  24  M  --  check  the 

? 

while  k  in  range (len (e_2 3m) ) : 
checkl  =  e  23m[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  13m)): 
check2  =  e  13m[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (txl-tx2) <=shf ) : 

ct  e_2313m  =  ct  e  2313m  +  2 
e  2313m  =  e  2313m  +  [checkl] 
e  2313m  =  e  2313m  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e  2313m [e_2313m. index (0) ] 

if ( (ct  e_2313m/ct  23m  !=  2)  and  (ct  e  2313m/ct  13m  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  23  and  24  M 

Region ' 

else : 

print  '  Edge  pairs  23  and  13  M  are  identified' 

###### - 

k,  m  =  0,  0 

if (ct  13m  !=  ct  24m) : 

print  'The  edges  nodes  are  not  compatible  13  24  --  check  the 

code ' 

while  k  in  range (len (e_24m) ) : 
checkl  =  e  24m[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  13m)): 
check2  =  e  13m[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if ( (abs (txl-tx2 ) <=shf )  and  (abs (tyl+ty2 ) <=shf ) ) : 
ct  e  2413m  =  ct  e  2413m  +  2 
e_2413m  =  e  2413m  +  [checkl] 
e_2413m  =  e  2413m  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e  2413m[e_2413m. index (0)  ] 

if ( (ct  e  2413m/ct  13m  !=  2)  and  (ct  e  2413m/ct  24m  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  13  and  24  M 
Uncracked  Region' 
else : 

print  '  Edge  pairs  13  and  24  M  are  identified  ' 

##  for  matrix  failure  only.. 

###### - 

k,  m  =  0,  0 

if (ct  23m  !=  ct  24m) : 

print  'The  edges  nodes  are  not  compatible  13  24  --  check  the 

code ' 

while  k  in  range (len (e_24m) ) : 
checkl  =  e  24m[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
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m  =  0 

while  m  in  range (len (e  23m)): 
check2  =  e_23m[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if ( (abs (txl-tx2 ) <=shf )  and  (abs (tyl+ty2 ) <=shf ) ) : 
ct  e  2423m  =  ct  e  2423m  +  2 
e  2423m  =  e  2423m  +  [checkl] 
e  2423m  =  e  2423m  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e  2423m[e  2423m. index (0) ] 

if ( (ct  e  2423m/ct  23m  !=  2)  and  (ct  e  2423m/ct  24m  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  13  and  24  M 
Uncracked  Region' 
else : 

print  '  Edge  pairs  23  and  24  M  -  for  matrix  failure  are  identified  ' 

## - 

k,  m  =  0,  0 

if (ct  25m  !=  ct  26m) : 

print  'The  edges  nodes  are  not  compatible  15  26  M  --  check  the 

code ' 

while  k  in  range ( len (e_2 6m) ) : 
checkl  =  e  26m[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  25m)): 
check2  =  e  25m[m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tyl-ty2) <=shf ) : 

ct  e  2625m  =  ct  e  2625m  +  2 
e  2625m  =  e  2625m  +  [checkl] 
e  2625m  =  e  2625m  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e  2625m[e_2625m. index (0)  ] 

if ( (ct  e  2625m/ct  25m  !=  2)  and  (ct  e  2625m/ct  26m  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  26  and  25  M' 
else : 

print  '  Edge  pairs  26  and  25  M  -  for  matrix  failure  are  identified' 


## - 

## - 

def  face_pairs()  : 

##  nodes  on  faces  are  recognized  now.  we  do  not  need  face  5  and  face  6  nodes. 


global 

ct  f  If,  ct 

f  2f 

,  ct  f 

3f ,  ct 

f  4f,  ct 

f 

5f, 

ct 

f 

6f 

global 

ct  f  If,  ct 

f  2f 

,  ct  f 

3f ,  ct 

f  4f,  ct 

f 

5f, 

ct 

f 

6f 

global 

f  If,  f  2f , 

f  3f 

,  f  4f , 

f  5f , 

f  6f 

global 

f  lm,  f  2m, 

f  3m 

,  f  4m, 

f  5m, 

f  6m 

global 

xtestf cenl , 

ytestf cenl , 

zztestfcenl 

global 

cnt 

ct  f  If 

,  ct  f  2f, 

ct  f 

3f ,  ct 

f  4f, 

ct  f  5f, 

ct 

f  6f 

= 

o. 

0, 

0, 

0, 

0, 

0 

ct  f  lm 

,  ct  f  2m, 

ct  f 

3m,  ct 

f  4m, 

ct  f  5m, 

ct 

f  6m 

= 

0, 

0, 

0, 

0, 

0, 

0 

f  If,  f 

2f ,  f  3f , 

f  4f, 

f  5f , 

f  6f  = 

[0],  [0] 

, 

[0]  , 

[0] 

r 

[0] 

,  [ 

0] 

f  lm,  f 

2m,  f  3m, 

f  4m, 

f  5m, 

f  6m  = 

[0],  [0] 

, 

[0]  , 

[0] 

r 

[0] 

,  [ 

0] 

j  =  0 
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while  j  in  range ( len (num  n)  )  : 

tx,  ty,  tz  =  x [ j ] ,  y [ j ]  ,  z [ j ] 
check  =  num  n [ j  ] 

frontl,  frontm,  frontn,  fronto  =  0,  0,  0,  0 


front  5, 

front 

_6  = 

o 

o 

if 

check 

in 

tm: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

tem: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

i — 1 

1 

if 

check 

in 

e 

35: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

36: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

LO 

■vT 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

46: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

_15f : 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

25f : 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

1 6f : 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

2  6f : 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

13f : 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

23f : 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

14f : 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

_24f : 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

15m: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

2  5m: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

16m: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

i — 1 

1 

if 

check 

in 

e 

2  6m: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

13m: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

2  3m: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

14m: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

\ — 1 

\ — 1 

1 

if 

check 

in 

e 

24m: 

frontl , 

frontm. 

frontn. 

fronto. 

front  5,  front  6 

1, 

1, 

1, 

1,  1, 

1 

xtestfcenl=x [c  1-1] 
ytestfcenl=y [c_l-l ] 
ztestfcenl=z [c_l-l] 

if (abs (tz-za) <=shf ) : 
if (frontl  ! =  1 ) : 
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radi_cl=sqrt ( (ty-ytestcl) **2+ (tx-xtestcl) **2) 
radi_c2=sqrt ( (ty-ytestc2) **2+ (tx-xtestc2) **2) 
radi_c3=sqrt ( (ty-ytestc3) **2+ (tx-xtestc3) **2) 
radi_c4=sqrt ( (ty-ytestc4) **2+ (tx-xtestc4) **2) 
radi_center=sqrt ( (ty-ytestfcenl ) **2+ (tx-xtestfcenl ) **2) 
if ( (abs (radi_cl-radi) <shf )  or  (abs (radi_c2-radi) <shf )  or 
(abs (radi_c3-radi) <shf )  or  (abs (radi_c4-radi) <shf ) 
or (abs ( radi_center-radi ) <shf ) 

or  (radi  cl<radi)  or  (radi  c2<radi)  or  (radi  c3<radi)  or 
(radi  c4<radi)  or  (radi  center<radi ) ) : 
ct  f  If  =  ct  f  If  +  1 
f_lf  =s  f_lf  +  Tcheck] 
else : 

ct  f  lm  =  ct  f  lm  +  1 
f  lm  =  f  lm  +  [check] 

elif (abs (tz-zb) <=shf ) : 
if ( f rontm  ! =  1 ) : 

radi_cl=sqrt ( (ty-ytestcl) **2+ (tx-xtestcl)  **2) 
radi_c2=sqrt ( (ty-ytestc2) **2+ (tx-xtestc2) **2) 
radi_c3=sqrt ( (ty-ytestc3) **2+ (tx-xtestc3) **2) 
radi_c4=sqrt ( (ty-ytestc4) **2+ (tx-xtestc4) **2) 
radi_center=sqrt ( (ty-ytestfcenl) **2+ (tx-xtestfcenl) **2) 
if ( (abs (radi_cl-radi) <shf ) or (abs (radi_c2-radi) <shf )  or 
(abs (radi_c3-radi) <shf ) or (abs (radi_c4- 
radi) <shf ) or (abs ( radi_center-radi ) <shf ) 

or (radi_cl<radi) 

or ( radi_c2<radi ) or (radi  c3<radi) or ( radi_c4<radi ) 

or (radi_center<radi) ) : 
ct_f_2f  =  ct_f_2f  +  1 
f_2f  =  f_2f  +  [check] 
else : 

ct  f  2m  =  ct  f  2m  +  1 
f  2m  =  f  2m  +  [check] 


elif (abs (ty-ya) <=shf )  : 
if ( f rontn  ! =  1 ) : 

if (( (abs (tx-xtestcl) <radi)  or  (abs (tx-xtestc2) <radi) )  or 
( (abs (tx-xtestc2) -radi) <=shf)  or  ( (abs (tx-xtestcl ) - 

radi ) <=shf ) ) : 

ct  f  3f  =  ct  f_3f  +  1 
f_3f  =  f_3f  +  [check] 
else : 

ct  f  3m  =  ct  f_3m  +  1 
f_3m  =  f  3m  +  [check] 

elif (abs (ty-yb) <=shf ) : 
if ( f ronto  ! =  1 ) : 

if (( (abs (tx-xtestcl) <radi)  or  (abs (tx-xtestc2) <radi) ) or 
( (abs (tx-xtestc2) -radi) <shf ) or ( (abs (tx-xtestcl) - 

radi ) <shf ) ) : 

ct  f  4f  =  ct  f  4f  +  1 
f_4f  -  f_4f  +  Tcheck] 
else : 

ct  f  4m  =  ct  f  4m  +  1 
f  4m  =  f  4m  +  [check] 
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elif (abs (tx-xa) <=shf )  : 
if (front  5  ! =  1 )  : 

if ( ( (abs (ty-ytestcl) <radi) or (abs (ty-ytestc4) <radi) ) or 
( (abs (ty-ytestcl) -radi) <shf )  or  ( (abs (ty-ytestc4 ) - 

radi ) <shf ) ) : 

ct  f  5f  =  ct  f  5f  +  1 
f  5f  =  f  5f  +  [check] 
else : 

ct  f  5m  =  ct  f  5m  +  1 
f  5m  =  f  5m  +  [check] 

elif (abs (tx-xb)  <=  shf )  : 
if (front  6  ! =  1 ) : 

if ( ( (abs (ty-ytestcl) <radi) or (abs (ty-ytestc4) <radi) ) or 
( (abs (ty-ytestcl) -radi) <shf ) or ( (abs (ty-ytestc4) - 

radi ) <shf ) ) : 

ct  f  6f  =  ct  f  6f  +  1 
f_6f  =  f_6f  +  [check] 
else : 

ct  f  6m  =  ct  f  6m  +  1 
f  6m  =  f  6m  +  [check] 

j  =  j  +  1 

del  f_lf[f_lf .index (0)  ] 
del  f_2f[f_2f .index (0) ] 
del  f_3f[f_3f .index (0)  ] 
del  f_4f[f_4f .index (0)  ] 
del  f_5f [ f_5f . index ( 0 ) ] 
del  f_6f [f_6f. index (0)  ] 
del  f  lm[f  lm. index (0)] 
del  f  2m[f  2m.index(0)] 
del  f  3m[f  3m.index(0)] 
del  f  4m[f  4m.index(0)] 
del  f  5m[f  5m.index(0)] 
del  f  6m [f  6m. index (0)] 

print  'Face  nodes  are  identified' 


## - 

global  ct  f  12f,  ct  f  34f,  fp  12f,  fp  34f,  ct  f  56f,  fp  56f 
global  ct  f  12m,  ct  f_34m,  fp  12m,  fp  34m,  ct  f  56m,  fp  56m 

fp_12f,  fp_34f,  fp_56f  =  [0],  [0],  [0] 

ct_f_12f ,  ct_f_34f ,  ct_f_56f  =  0,  0,  0 
fp_12m,  fp_34m,  fp_56m=  [0],  [0],  [0] 

ct  f  12m,  ct  f  34m,  ct  f  56m  =  0,  0,  0 

j  ,  k  =  0,0 

while  j  in  range (len(f  If)): 
if (ct_f_lf  ! =  ct_f_2f) : 

print  'Face  pairs  FI  and  F2  F  are  not  matched' 
checkl  =  f _ 1 f [ j ] 

txl,  tyl,  tzl  =  x[checkl  -  l],y[checkl  -  1],  z[checkl  -  1] 
k  =  0 
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while  k  in  range (len(f  2f) ) : 
check2  =  f_2f[k] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (  (abs (txl  -  tx2)  <=  2.0e-3)  and  (abs (tyl  -  ty2)  <=  2.0e-3) 
ct_f_12f  =  ct_f_12f  +  2 
fp  12f  =  fp  12f  +  [checkl] 
fp  12f  =  fp  12f  +  [check2] 
x[checkl  -  1]  =  x[check2  -  1] 
y[checkl  -  1]  =  y[check2  -  1] 
k  =  k  +  1 
j  =  j  +  1 

del  fp  12f[fp  12f. index (0) ] 

if ( (ct_f_12f/ct_f_lf  ! =  2)  and  (ct_f_12f /ct_f_2f  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  Face  1  and  Face  2  F  ' 
else : 

print  '  Face  pairs  FI  and  F2  F  are  identified' 

j , k  =  0,0 

while  j  in  range (len(f  lm) ) : 
if (ct  f  lm  !=  ct  f  2m) : 

print  'Face  pairs  FI  and  F2  M  are  not  matched' 
checkl  =  f  lm [ j ] 

txl,  tyl,  tzl  =  x[checkl  -  l],y[checkl  -  1],  z[checkl  -  1] 
k  =  0 

while  k  in  range (len(f  2m)): 
check2  =  f  2m[k] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (  (abs (txl  -  tx2)  <=  1.0e-3)  and  (abs (tyl  -  ty2)  <=  1.0e-3) 
ct  f  12m  =  ct  f  12m  +  2 
fp  12m  =  fp  12m  +  [checkl] 
fp  12m  =  fp  12m  +  [check2] 
x[checkl  -  1]  =  x[check2  -  1] 
y[checkl  -  1]  =  y[check2  -  1] 
k  =  k  +  1 
j  =  j  +  1 

del  fp  12m[fp  12m. index (0) ] 

if ( (ct  f  12m/ct  f  lm  !=  2)  and  (ct  f  12m/ct  f  2m  !=  2) ) : 

print  '  Error  in  identifying  face  pairs  -  Face  1  and  Face  2  M  ' 
else : 

print  '  Face  pairs  FI  and  F2  M  are  identified' 


##  debugging  routine... 
j  =  0 

while  j  in  range (len(f  5)): 
checkl  =  f_5 [ j ] 
if  checkl  in  fp  56: 

pass 
else : 

srat  =  str (checkl) + 
output_6 .write (srat) 

j  =  j  +  1  " 


Face  -5  \n' 


j  =  0 
cnt  =  0 

while  j  in  range (len(f  6)): 

checkl  =  f _ 6 [ j ] 

if  checkl  in  fp  56: 
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## 

cnt  = 

cnt  +  1 

## 

pass 

## 

else : 

## 

srat  = 

str (checkl ) + 

## 

output 

6 .write (srat) 

## 

j  =  j  +  1 

#### - 

jr  k  =  0, 0 

while  j  in  range ( len ( f_3f) ) : 
if (ct_f_3f  ! =  ct_f_4f) : 

print  'Face  pairs  FI  and  F2  F  are  not  matched' 
checkl  =  f_3f [ j ] 

txl,  tyl,  tzl  =  x[checkl  -  l],y[checkl  -  1],  z[checkl  -  1] 
k  =  0 

while  k  in  range (len (f  4f) ) : 
check2  =  f  4 f [ k] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (  (abs (txl  -  tx2)  <=  shf)  and  (abs (tzl  -  tz2)  <=  shf)  and 
(abs (tyl  +  ty2)  <=  shf)): 

ct_f_34f  =  ct_f_34f  +  2 
fp  34f  =  fp  34f  +  [checkl] 
fp  34f  =  fp  34f  +  [check2] 
k  =  k  +  1 
j  =  j  +  1 

del  fp  34f[fp  34f. index (0) ] 

if ( (ct_f_34f/ct_f_3f  ! =  2)  and  (ct_f_34f /ct_f_4f  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  Face  3  and  Face  4  F' 
else : 

print  '  Face  pairs  F3  and  F4  F  are  identified' 

#### - 

hr  k  =  0, 0 

while  j  in  range ( len ( f_3m) ) : 
if (ct  f_3m  !=  ct  f  4m) : 

print  'Face  pairs  FI  and  F2  M  are  not  matched' 
checkl  =  f  3m [ j ] 

txl,  tyl,  tzl  =  x[checkl  -  l],y[checkl  -  1],  z[checkl  -  1] 
k  =  0 

while  k  in  range (len (f  4m)): 
check2  =  f  4m[k] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (  (abs (txl  -  tx2)  <=  shf)  and  (abs  (tzl  -  tz2)  <=  shf)  and 
(abs (tyl  +  ty2)  <=  shf)): 

ct  f_34m  =  ct  f  34m  +  2 
fp  34m  =  fp  34m  +  [checkl] 
fp  34m  =  fp  34m  +  [check2] 
k  =  k  +  1 
j  =  j  +  1 

del  fp  34m[fp  34m. index (0)  ] 

if ( (ct  f  34m/ct  f  3m  !=  2)  and  (ct  f  34m/ct  f  4m  !=  2) ) : 

print  '  Error  in  identifying  face  pairs  -  Face  3  and  Face  4  M' 
else : 

print  '  Face  pairs  F3  and  F4  M  are  identified' 

#### - 

hr  k  =  0, 0 

while  j  in  range (len (f  5 f )  )  : 
if (ct_f_5f  !=  ct_f_6f) : 

print  'Face  pairs  F5  and  F6  F  are  not  matched' 
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checkl  =  f _ 5  f [ j ] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
k  =  0 

while  k  in  range (len(f  6f )  )  : 
check2  =  f  6 f [ k ] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (  (abs (tzl  -  tz2)  <=  shf)  and  (abs (tyl  -  ty2)  <=  shf)  ) : 
ct_f_56f  =  ct_f_56f  +  2 
fp  56f  =  fp  56f  +  [checkl] 
fp  56f  =  fp  56f  +  [check2] 
k  =  k  +  1 
j  =  j  +  1 

del  fp_56f [fp_56f. index (0)  ] 

if ( (ct_f_56f/ct_f_5f  ! =  2)  and  (ct_f_56f /ct_f_6f  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  Face  5  and  Face  6  F' 

else : 

print  '  Face  pairs  F5  and  F6  F  are  identified' 

#### - 

j  ,  k  =  0, 0 

while  j  in  range (len(f  5m)): 
if (ct  f  5m  !=  ct  f  6m) : 

print  'Face  pairs  F5  and  F6  M  are  not  matched' 
checkl  =  f  5m [ j ] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
k  =  0 

while  k  in  range (len(f  6m)): 
check2  =  f  6m[k] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (  (abs (tzl  -  tz2)  <=  shf)  and  (abs (tyl  -  ty2)  <=  shf)  ) : 
ct  f  56m  =  ct  f  56m  +  2 
fp  56m  =  fp  56m  +  [checkl] 
fp  56m  =  fp  56m  +  [check2] 
k  =  k  +  1 
j  =  j  +  1 

del  fp  56m[fp  56m. index (0) ] 

if ( (ct  f  56m/ct  f  5m  !=  2)  and  (ct  f  56m/ct  f  6m  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  Face  5  and  Face  6  M' 

else : 

print  '  Face  pairs  F5  and  F6  M  are  identified' 


## - 

## - 

def  center_constraints ( )  : 
m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(2)  +  ' \n ' 

strgg2=  '  '  +  str(c  2)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  +  '\n' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 
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output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(2)  +  ' \n ' 

strgg2  =  '  '  +  str (c  4)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str (c  3)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 

output_ll .write (strgg) 

output_12 .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(2)  +  ' \n ' 

strgg2  =  '  '  +  str(c  6)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(c  5)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 

output_ll .write (strgg) 

output_12 .write (strgg) 

m  =  m  +  1 

print  '  Face  Center  Constraints  are  written' 

## - 

## - 

def  corner_constraints ( )  : 

m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(4)  +  ' \n ' 

strgg2  =  '  '  +  str (cl46) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(cl35)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  + 

'  \n  ' 

strgg4  -  '  '  I  str(c  3)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

strgg5  =  '  '  +  str (c  5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4  +  strgg5 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 

output_ll .write (strgg) 
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output_12 .write (strgg) 
m  =  m  +  1 
m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(4)  +  '\n' 

strgg2  =  '  '  +  str (c236) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(cl35)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  + 

'  \n  ' 

strgg4  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

strgg5  =  '  '  +  str(c_5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4  +  strgg5 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 

output_ll .write (strgg) 

output_12 .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(4)  +  '\n' 

strgg2  =  '  '  +  str (c245) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(cl35)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  + 

'  \n  ' 

strgg4  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

strgg5  =  '  '  +  str(c_3)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4  +  strgg5 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 

output_ll .write (strgg) 

output_12 .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str (cl45) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(cl35)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  + 

'  \n  ' 

strgg4  =  '  '  +  str(c  3)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  ' \n ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 
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output_5 .write ( strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str (c235) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(cl35)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  + 

'  \n  ' 

strgg4  =  '  '  +  str (c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 

output_ll .write (strgg) 

output_12 .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 


strggO 

strggl 

strgg2 

=  ' *Equation\n ' 

=  str ( 5 )  +  ' \n ' 

=  '  '  +  str (c246) + ' 

,  '  +' 

' +  str (m+1 )  +  '  ,  '  +  ' 

' +str (1.0 

)+' 

1  \n ' 

strgg3 

=  '  '  + 

str (cl35) + ' 

,  '  +' 

' +  str (m+1 ) + ' , ' + ' 

'  +str (-1 . 

0) 

+ 

strgg4 

str (c  1 ) + ' , 

'  + ' 

'  +  str (m+1 )  +  '  ,  '  +  ' 

'  +str (2.0) 

+ 

'  \n ' 

strgg5 

=  '  '  + 

str (c  3) + ' , 

'  + ' 

'  +  str (m+1 )  +  ' ,  '  +  ' 

'  +str (2.0) 

+ 

'  \n  ' 

strgg6 

=  '  '  + 

str (c  5) + ' , 

'  + ' 

'  +  str (m+1 )  +  '  ,  '  +  ' 

'  +str (2.0) 

+ 

'  \n  ' 

strgg  = 

=  strggO 

+  strggl  + 

strgg2 

+  strgg3  +  strgg4 

+  strgg5  + 

strgg6 

output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 


output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str (cl36) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(cl35)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  + 

'  \n  ' 

strgg4  =  '  '  +  str(c_5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
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output_3 .write ( strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 

m  =  m  +  1 

print  '  Corner  Constraints  are  written  ' 

# - 

##  this  routine  is  to  write  the  equations  that  relate  the  faces  3  and  4 
##  which  has  nothing  to  do  with  the  cracks  we  are  going  to  incorporate. 

def  face_constraints_3_5_lf ( ) : 

## - 

k, m  =  0,0 

while  k  in  range (len(fp  3 4 f ) )  : 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str(fp  34f [k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(fp  34f[k])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  3)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  3  and  4  F  are  written' 

## - 

k, m  =  0,0 

while  k  in  range (len(fp  34m)): 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str(fp  34m [ k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(fp  34m[k])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

strgg4  =  '  '  +  str (c  3)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 
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output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  3  and  4  M  are  written' 

## - 

k, m  =  0,0 

while  k  in  range (len(fp  56f)  )  : 
m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  ' \n ' 

strgg2  =  '  '  +  str(fp  56f [k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

strgg3  =  '  '  +  str(fp  56f[k])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  5  and  6  F  are  written' 

## - 

k, m  =  0,0 

while  k  in  range (len(fp  56m)): 
m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  ' \n ' 

strgg2  =  '  '  +  str(fp  56m[k+l] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

strgg3  =  '  '  +  str(fp  56m[k])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  '\n' 

strgg4  =  '  '  +  str(c  5)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  5  and  6  M  are  written' 

## - 

k, m  =  0,0 

while  k  in  range (len(fp  12f) ) : 
m  =  0 
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while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  ' \n ' 

strgg2  =  '  '  +  str(fp  12f [k+1] )  +  '  ,  '  +'  '+  str (m+1 )+','  +  ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(fp  12f[k])+','  +'  '+  str (m+1 '  '+str(- 

1.0)  +  ' \n' 

strgg4  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 


print  '  Face  Constraints  for  faces  1  and  2  F  are  written' 


## - 

def  edge_constraints_35_36_45_46 ( ) : 
k, m  =  0,0 

while  k  in  range (len (e_3635) ) : 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  ' \n ' 

strgg2  =  '  '  +  str (e  3635 [k] ) +' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(e  3635 [k+1 ])+', '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  36  and  35' 


k,  m  =  0,0 

while  k  in  range (len (e  4535)): 
m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str (e_4535 [k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

strgg3  =  '  '  +  str(e  4535 [k+1] )+', '  +'  '+  str (m+1 )+','+ ' 

'  +str (-1.0)  +  ' \n ' 
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\n 


strgg4 


+  str (c  3) + ' , 


+  str (m+1 ) + ' , ' + 


+str (2.0)  + 


strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  45  and  35' 
k, m  =  0,0 

while  k  in  range (len (e  4635)): 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(4)  +  '\n' 

strgg2  =  '  '  +  str(e  4635 [k] ) +' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(e  4 635 [ k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str (c  5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n ' 

strgg5  =  '  '  +  str(c  3)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4  +  strgg5 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  46  and  35' 

## - 

def  edge  constraints  13  14  23_24  f () : 
k, m  =  0,0 

while  k  in  range (len (e  1413f)  )  : 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str(e  1413f [k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str (e  1413f [k+1] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  3)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
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output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  14  and  13  F' 
k, m  =  0,0 

while  k  in  range (len (e  2313f) ) : 
m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str (e  2313f [k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

strgg3  =  '  '  +  str(e  2313f [k+1] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  23  and  13  F' 
k, m  =  0,0 

while  k  in  range (len (e  2413f)): 
m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(4)  +  '\n' 

strgg2  =  '  '  +  str (e  2413f [k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

strgg3  =  '  '  +  str(e  2413f [k+1] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c_3)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg5  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4  +strgg5 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  24  and  13  F' 
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## - 

def  edge  constraints_15  25  16  26  f () : 
k, m  =  0,0 

while  k  in  range (len (e  1615f) ) : 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str (e  1615f [k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(e  1615f [k+1] ) '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  16  and  15  F' 
k, m  =  0,0 

while  k  in  range (len (e  2615f) ) : 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(4)  +  '\n' 

strgg2  =  '  '  +  str(e  2615f [k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str (e  2615f [k+1] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg5  =  '  '  +  str(c  5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4  +  strgg5 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  26  and  15  F' 
k, m  =  0,0 

while  k  in  range (len (e  2515f) ) : 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
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strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str(e  2515f [k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str (e  2515f [k+1] ) + ' , '  +'  '+  str (m+1 ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  25  and  15  F' 

## - 

## - 

def  edge_constraints  13  14  23_24  nf () : 
k, m  =  0,0 

while  k  in  range (len (e  1413m)): 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  ' \n ' 

strgg2  =  '  '  +  str(e  1413m[k] ) +' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str (e  1413m[k+l] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  3)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  14  and  13  M  NF ' 
k, m  =  0,0 

while  k  in  range (len (e_2313m) ) : 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str(e  2313m[k] ) +' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(e  2313m[k+l] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 
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strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  23  and  13  M  NF ' 
k, m  =  0,0 

while  k  in  range (len (e_2413m) ) : 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(4)  +  '\n' 

strgg2  =  '  '  +  str (e  2413m[k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(e  2413m[k+l] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  3)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg5  =  '  '  +  str (c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4  +strgg5 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  24  and  13  M  NF ' 

## - 

def  edge_constraints_15  25  16  26  nf () : 
k, m  =  0,0 

while  k  in  range (len (e  1615m)): 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str(e  1615m[k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(e  1615m[k+l] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str (c  5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 
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output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  16  and  15  M  NF ' 
k, m  =  0,0 

while  k  in  range (len (e  2615m)): 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(4)  +  '\n' 

strgg2  =  '  '  +  str(e  2615m [k] )+', '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str (e  2615m[k+l] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '  +  '  '+str(2.0)  + 

'  \n  ' 

strgg5  =  '  '  +  str(c  5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4  +  strgg5 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  26  and  15  M  NF ' 
k, m  =  0,0 

while  k  in  range (len (e_2515m) ) : 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str (e  2515m[k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(e  2515m[k+l] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  25  and  15  M  NF ' 

## - 

def  edge_constraints  13  14^23_24  15  25  26  16m () : 
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k, m  =  0,0 

while  k  in  range (len (e  1413m)): 
m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str (e  1413m[k] ) +' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

strgg3  =  '  '  +  str (e  1413m[k+l] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c_3)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  14  and  13  M  F' 
k, m  =  0,0 

while  k  in  range (len (e  2423m)): 
m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str(e  2423m[k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

strgg3  =  '  '  +  str (e_2423m[k+l] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str (c  3)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  23  and  24  M  F' 
k, m  =  0,0 

while  k  in  range (len (e  1615m)): 
m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str (e  1615m[k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 
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strgg3  =  '  '  +  str(e  1615m[k+l] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c_5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  16  and  15  M  F' 
k, m  =  0,0 

while  k  in  range (len (e  2625m)): 
m  =  0 

while  m  in  range (3) : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str(e  2625m[k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

strgg3  =  '  '  +  str (e  2625m[k+l] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str (-1.0)  +  ' \n ' 

strgg4  =  '  '  +  str(c  5)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  26  and  25  M  F' 


def  f ace_constraints_lm ( ) : 

## - - - - - 

k, m  =  0,0 

while  k  in  range (len (fp  12m)): 
m  =  0 

while  m  in  range  (3)  : 

strggO  =  ' *Equation\n ' 
strggl  =  str(3)  +  '\n' 

strgg2  =  '  '  +  str(fp  12m [ k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

strgg3  =  '  '  +  str(fp  12m[k])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  '\n' 

strgg4  =  '  '  +  str(c  1)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

strgg  =  strggO  +  strggl  +  strgg2  +  strgg3  +  strgg4 
output_l .write (strgg) 
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output_2 .write (strgg) 
output_3 .write (strgg) 
output_4 .write (strgg) 
output_5 .write (strgg) 
output_ll .write (strgg) 
output_12 .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  1  and  2  M  are  written' 

## - 

def  rigid_body_modes ( ) : 

strggO  ='**  Boundary  conditions  written\n' 
strggl  = ' *Boundary\n ' 

##  if (case  ==  3) : 

##  strgg2  =  '  n_set_5 '  '+str(l)  +  '  '+  str(3)+'\n' 

##  strgg3  =  '  n_set_3 '  '+str(3)  +  '  '+  str(3)+'\n' 

##  strgg4  =  '  n^set  1'+', '+'  '+str(2)  '+  str(2)+'\n' 

##  strgg5  =  '  n_set_3 '  '+str(2)  +  '  '+  str(2)+'\n' 

##  else: 

strgg2  =  '  n_set  5'  +  ',  '  +  '  '+str(l)  +  '+  str(3)  +  '\n' 

strgg3  =  '  n  set  1'+', '+'  '+str(l)  '+  str(l)+'\n' 

strgg4  =  '  n  set  1'+', '+'  '+str(2)  '+  str(2)+'\n' 

strgg5  =  '  n  set_3'+', '+'  '+str(2)  '+  str(2)+'\n' 

strgg  =  strggO  +  strggl  +strgg2  +  strgg3  +  strgg4  +  strgg5 

output_l .write (strgg) 

output_2 .write (strgg) 

output_3 .write (strgg) 

output_4 .write (strgg) 

output_5 .write (strgg) 

output_ll .write (strgg) 

output_12 .write (strgg) 

## - 

def  loads ( )  : 

strggO  =  ' *Cload  \n' 
strggOO  =  ' ‘Temperature  \n' 
strggOlO  =  ' *Boundary  \n ' 

##  Ell  simulation 

strggl  =  '  n  set  1'+', '+'  '+  str(3)  '+  str (1000 . 0) + ' \n ' 

strgg  =  strggO  +  strggl 
output_l .write (strgg) 

##  E22  simulation 

strggl  =  '  n  set  3'+','+'  '+  str(l)  +  '  '+  str (1000 . 0) +' \n ' 

strgg  =  strggO  +  strggl 
output_2 .write (strgg) 

##  G12  similation 

strggl  =  '  n^set  3'+', '+'  '+  str(3)  '+  str (1000 . 0) +' \n ' 

strgg  =  strggO  +  strggl 
output_3 .write (strgg) 

##  G23  simulation 

strggl  =  '  n^set  4'+', '+'  '+  str(l)  '+  str (1000 . 0) +' \n ' 

strgg  =  strggO  +  strggl 
output_4 .write (strgg) 
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##  G13  -  simulation 

strggl  =  '  n  set  4'+','+'  '+  str(3)  +  '  '+  str (1000 . 0) + ' \n ' 

strgg  =  strggO  +  strggl 
output_ll .write (strgg) 

##  E33  -  simulation 

strggl  =  '  n  set  4'+','+'  '+  str(2)  +  '  '+  str (1000 . 0) +' \n ' 

strgg  =  strggO  +  strggl 
output_12 .write (strgg) 

##  Thermal  simulation 

strggl  =  '  n  set  9'  +  ', '+'  '+  str (-200) + ' \n ' 

strgg  =  strggOO  +  strggl 
output_5 .write (strgg) 

print  'Case  5  -  Thermal  Loading  Only' 


##  the  subroutine  that  arranges  the  depth  sets 
def  centroids () : 

global  fiber  elem,  matrix  elem 
global  z  depth,  elem  z,  s  z  elems 
global  z  depthm,  elem  zm,  s  z  elemsm 
fiber  elem,  matrix  elem  =  [0],  [0] 

num  =  0 

while  num  in  range ( len (num  el)): 
check  =  num  el [num] 

txl,  tx2  =  x [nodel [num] -1 ] ,  x [node2 [num] -1 ] 
tx3,  tx4  =  x [node3 [num] -1 ] ,  x [node4 [num] -1 ] 
tx5,  tx6  =  x [node5 [num] -1 ] ,  x [node6 [num] -1 ] 
tx7,  tx8  =  x [node7 [num] -1 ] ,  x [node8 [num] -1 ] 

tyl,  ty2  =  y [nodel [num] -1 ] ,  y [node2 [num] -1 ] 
ty3,  ty4  =  y [node3 [num] -1 ] ,  y [node4 [num] -1 ] 
ty5,  ty6  =  y [node5 [num] -1 ] ,  y [node6 [num] -1 ] 
ty7,  ty8  =  y [node7 [num] -1 ] ,  y [node8 [num] -1 ] 

tx  cen  =  (txl  +  tx2  +  tx3+  tx4  +  tx5  +  tx6  +  tx7  +  tx8)/8.0 
ty_cen  =  (tyl  +  ty2  +  ty3+  ty4  +  ty5  +  ty6  +  ty7  +  ty8)/8.0 

radi_cl=sqrt ( (ty_cen-ytestcl ) **2+ (tx_cen-xtestcl ) **2) 
radi__c2=sqrt  (  (ty_cen-ytestc2  )  **2+  (tx__cen-xtestc2  )  **2) 
radi_c3=sqrt ( (ty_cen-ytestc3) **2+ (tx_cen-xtestc3) **2) 
radi__c4=sqrt ( (ty_cen-ytestc4 ) **2+ (tx_cen-xtestc4 ) **2) 
radi  center=sqrt ( (ty  cen-ytestf cenl ) **2+ (tx  cen-xtestf cenl ) **2 ) 

if ( (abs (radi_cl) <radi) or (abs (radi_c2) <radi)  or 

(abs (radi_c3) <radi) or (abs (radi_c4) <radi) or (abs (radi_center<radi) ) ) : 
fiber  elem  =  fiber  elem  +  [check] 
else : 

matrix  elem  =  matrix  elem  +  [check] 


num  =  num  +  1 

del  fiber  elem[fiber  elem. index (0)  ] 
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del  matrix  elem[matrix  elem. index (0) ] 


z_depth  =  [0] 
elem_z  =  [0] 

num  =  0 

for  num  in  range ( len ( fiber  elem)): 
check  =  fiber  elem[num] 

tzl,  tz2  =  z [nodel [check-1 ] -1 ] ,  z [node2 [check-1 ] -1 ] 

tz3,  tz4  =  z [node3 [check-1 ] -1 ] ,  z [node4 [check-1 ] -1 ] 

tz5,  tz6  =  z [node5 [check-1 ] -1 ] ,  z [node6 [check-1 ] -1 ] 

tz7,  tz8  =  z [node7 [check-1 ] -1 ] ,  z [node8 [check-1 ] -1 ] 

tz  cen  =  (tzl  +  tz2  +  tz3+  tz4  +  tz5  +  tz6  +  tz7  +  tz8)/8.0 

tz  cenn  =  round (tz  cen,  3) 

elem  z  =  elem  z  +  [ [tz  cenn,  check] ] 

if  tz  cenn  in  z  depth: 

pass 
else : 

z  depth  =  z  depth  +  [tz^cenn] 

del  elem  z [elem  z. index (0) ] 
del  z  depth [z  depth . index ( 0 ) ] 

z_depth . sort ( ) 
s_z_elems  =  [0] 

for  ij  in  range (len (z  depth)): 

name  =  'Set  fiber  '  +  str(ij+l) 
s  z  elems  =  s  z  elems  +  [[name,  z  depth[ij]]] 

del  s  z  elems [s  z  elems . index ( 0 ) ] 

ij  =  0 

while  ij  in  range ( len (elem  z)): 
check  =  elem_z[ij] [1] 
tzz  =  elem_z[ij] [0] 
for  ik  in  range (len (s  z  elems)): 
tzc  =  s_z__elems  [ ik]  [1] 
if (tzz  ==  tzc)  : 

s  z  elems [ik]=s  z  elems [ik]  +  [check] 
ij  =  ij  +-l“ 

z_depthm  =  [0] 
elem  zm  =  [0] 

num  =  0 

while  num  in  range ( len (matrix  elem)) : 
check  =  matrix  elem [num] 

tzl,  tz2  =  z [nodel [check-1 ] -1 ] ,  z [node2 [check-1 ] -1 ] 

tz3,  tz4  =  z [node3 [check-1 ] -1 ] ,  z [node4 [check-1 ] -1 ] 

tz5,  tz6  =  z [node5 [check-1 ] -1 ] ,  z [node6 [check-1 ] -1 ] 

tz7,  tz8  =  z [node7 [check-1 ] -1 ] ,  z [node8 [check-1 ] -1 ] 

tz  cen  =  (tzl  +  tz2  +  tz3+  tz4  +  tz5  +  tz6  +  tz7  +  tz8)/8.0 

tz  cenn  =  round (tz  cen,  3) 

elem  zm  =  elem  zm  +  [ [tz  cenn,  check] ] 

if  tz  cenn  in  z  depthm: 
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pass 
else : 

z  depthm  =  z  depthm  +  [tz  cenn] 
num  =  num  +  1 

del  elem  zm[elem  zm. index (0) ] 
del  z  depthm [z  depthm. index (0) ] 

z_depthm. sort ( ) 
s  z  elemsm  =  [0] 

for  ij  in  range (len (z  depthm)): 

name  =  'Set  matrix  '  +  str(ij+l) 

s  z  elemsm  =  s  z  elemsm  +  [[name,  z  depthm[ij]]] 
del  s  z  elemsm[s  z  elemsm. index (0) ] 
ij  =  0 

while  ij  in  range (len (elem  zm) ) : 
check  =  elem  zm[ij] [1] 
tzz  =  elem  zm[ij] [0] 
for  ik  in  range (len (s  z  elemsm)): 
tzc  =  s_z  elemsm[ik] [1] 
if (tzz  ==  tzc) : 

s  z  elemsm[ik]=s  z  elemsm[ik]  +  [check] 
ij  =  ij  +-l“ 


## - 

from  abaqus  import  * 

from  abaqusConstants  import  * 

from  section  import* 

import  math 

reading  inp  file() 
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APPENDIX  -  B 


PYTHON  CODE  FOR  MPC  UNIT  CELL  MODEL 


In  this  appendix,  a  computer  code  written  in  the  Python  object  oriented  programming  language 
that  is  intended  to  run  with  ABAQUS  Version  6.6  is  listed.  The  code  consists  of  four  python 
script  files,  namely,  “ run_ninety.py ”,  ‘  3n  ocle  In  in  ety.py ' ,  “ be  jiinety.py ”,  and  “bcjinety_23.py”. 
The  entire  script  is  run  by  executing  the  statement  “execfile(‘run_ninety.py’)”  in  an  ABAQUS 
command  window.  This  runs  the  script  file  “ runjnnc.py ”  which  executes  the  other  files  based 
on  the  loading  scenario.  For  imposing  an  out-of-plane  shear  stress  on  the  laminate,  the  files 
“ model jiinety.py ”  and  “ bc_ninety_23.py ”  are  executed  in  sequence.  For  all  other  loading 
scenarios,  the  files  “ model  jiinety.py ”  and  “be jiinety.py”  are  executed  in  sequence. 

The  file  “run  jiinety.py”  is  the  central  file  that  controls  the  creation  and  execution  of  the  model. 
The  file  has  the  parameters  such  as,  the  material  definition,  laminate  sequence,  crack  density  or 
crack  spacing,  etc.  that  are  required  to  define  the  model.  With  the  required  parameters  defined, 
the  file  “model jiinety.py”  is  executed  which  creates  the  laminate  model  in  ABAQUS  and 
produces  an  input  file.  This  input  file  has  all  node  and  element  information  defining  the  model. 
The  fde  “be jiinety.py”  modifies  the  input  file  by  adding  the  periodic  boundary  conditions  or 
kinematic  constraints  based  on  periodicity  in  the  plane  of  the  laminate  for  the  nodes  in  the 
models.  The  file  “bcjiinety_23.py”  modifies  the  input  file  by  adding  the  periodic  boundary 
conditions  or  kinematic  constraints  based  on  periodicity  in  all  the  three  Cartesian  coordinate 
directions  of  the  laminate  for  the  nodes  in  the  models.  The  model  is  then  run  in  ABAQUS  using 
the  input  file  by  “run  jiinety.py” . 


Central  program:  run  jiinety.py 

##  THIS  PROGRAM  IS  THE  CENTRAL  PROGRAM  THAT  RUNS  ALL  OTHER 
##  PROGRAMS  to  EVALUATE  THE  CRACKED  LAMINA  PROPERTIES. 

# - 

from  abaqus  import  * 

from  abaqusConstants  import  * 

import  math 

global  layup,  theta,  i,  ped,  nol,  t,  zeta 
global  qconst,  a,  b,  loc_ply_l,  thickness 
global  thick  location,  thick  midpoints 
global  lumped  inner,  outerlayer,  thick 

global  mechanical,  thermal,  mat  name,  materia,  load  case 

##  Loading  on  the  model. 

mechanical  =  0  ##  one  -  yes,  zero  -  no 

thermal  =  1  ##  one  -  yes,  zero  -  no 

##  thermo-mechanical  loading  --  load  and  thermal  =  1 

##  NOTE:  If  mechanical  loading  is  specified,  then  the  case  needs  to  be 
specified . 

##  note  further  that  these  loading  are  on  the  laminate  and  not  on  the  cracked 
ply. 

##  case  =  1  =>  biaxial  loading, 

##  case  =  2  =>  inplane  shear  loading 
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##  case  =  3  =>  out-ofplane  shear  S23 
if  (mechanical  ==  1) : 

load_case  =  1 
else : 

load_case  =  0 
if (thermal  ==  1) : 

theta_range  =  -196  ##  temperature  range 

## - 

pi  =  acos (-1.0) 

##  layup  of  the  laminate 
layup  =  [0,  90,  90,  0] 

##  material  for  the  layers 
materia  =  [  3,  3,  3,  3] 

##  individual  thicknesses  of  the  plies 

t  uc  =  0.15/1000.0  ##  thickness  of  the  uncracked  plies  in  METERS. 

ratio  =1.0  ##  ratio  of  the  cracked  ply  thickness  and  one  ply  thickness. 

ratioo  =1.0  ##  ratio  of  the  uncracked  ply  thickness  and  one  ply  thickness. 

t_c  =  t_uc  *  ratio  ##  thickness  of  the  cracked  plies. 

t_ucc  =  t_uc  *  ratioo  ##  thickness  of  the  uncracked  plies. 

thickness  =  [t_ucc,  t_c,  t_c,  t_ucc] 

##  the  cracked  layer 

##  note:  remember  that  the  range  is  from  0  ->  (max-1) 

##  if  symmetric  cracking,  then  you  need  to  specify  only  one  number  (the 
first) 
i  =  1 

crack  layer  thickness  =  thickness [i] 
theta  =  layup [i] 

##  total  thickness  of  the  laminate 
ped  =  0 

for  k  in  range (len (thickness) ) : 

ped  =  ped  +  thickness [k] 

##  numer  of  layers 
nol  =  len (layup) 

loc_ply  1  =  i  +  1  #  location  of  the  cracked  ply  from  top 

##_d___T - 

thick_location  =  [0] 
thick  midpoints  =  [0] 
increm  =  0 
increm3  =  0 

for  inte  in  range (len (thickness) ) : 

increm  =  increm  +  thickness [inte] 

thick  location  =  thick  location  +  [increm] 

if ( inte  ==  0 ) : 

increm2  =  increm/2.0 
else : 

increm3  =  increm3  +  thickness [inte-1 ] 
increm2  =  (increm  +  increm3)/2.0 
thick  midpoints  =  thick  midpoints  +  [increm2] 
del  thick  location [thick  location . index ( 0 ) ] 
del  thick  midpoints [thick  midpoints . index ( 0 ) ] 

## - - - - - 

##  Tripper  if  the  layer  is  an  outer  layer, 
outerlayer  =  0 

if (i  ==  0) : 

outerlayer  =  1 
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##  Tripper  if  the  inner  layers  are  lumped, 
lumped  inner  =  0 
locaaa  =  nol  -  i  -  2 
if ( i  ==  locaaa) : 

lumped  inner  =  1 
thick  =  [0] 

thick  =  thick  +  thick  location 

## - 

##  crack  density 

c_d  =1.2  *  1000  #  expressed  in  cracks/METERS 
##  normalized  crack  density  >  0 
if (lumped  inner  ==  1) : 

zeta  =  c_d  *  thickness [i] 
else : 

zeta  =  c  d  *  thickness [i] 


## - 

##  material  database 

##  NOTE  THAT  LAYUP  IS  FROM  THE  BOTTOM  OF  THE  LAMINATE 
mat  name  =  [0] 

##  material  -  1 
NAME  =  ' P3051-F05 ' 
temp  =  [1,  NAME] 

Ell,  E22 ,  E33  =  127. 8e9,  9.4e9,  9.4e9 

G12 ,  G13,  G23  =  4.2e9,  4.2e9,  3.1e9 

NU12 ,  NU13,  NU23  =  0.28,  0.28,  0.51613 

All,  A22 ,  A3 3  =  17.628e-6,  20.61E-6,  20.61E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 
mat  name  =  mat  name  +  [temp] 

##  material  -  2 
NAME  =  ' AS4-3502 ' 
temp  =  [2,  NAME] 

Ell,  E22 ,  E33  =  144.78e9,  9.58e9,  9.58e9 
G12 ,  G13,  G23  =  4.785e9,  4.785e9,  3.4214e9 
NU12 ,  NU13,  NU23  =  0.31,  0.31,  0.4 
All,  A22,  A33  =  8.629e-6,  26.15E-6,  26.15E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 
mat  name  =  mat  name  +  [temp] 

##  material  -  3 
NAME  =  'Glass/epoxy' 
temp  =  [3,  NAME] 

Ell,  E22 ,  E33  =  44.73e9,  12.76e9,  12.76e9 

G12 ,  G13,  G23  =  5.8e9,  5.8e9,  4.49e9 

NU12 ,  NU13,  NU23  =  0.297,  0.297,  0.4209 
All,  A22 ,  A3 3  =  8.6e-6,  22.1E-6,  22.1E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 
mat  name  =  mat  name  +  [temp] 

##  material  -  4 
NAME  =  'Silenka' 
temp  =  [4,  NAME] 

Ell,  E22 ,  E33  =  45.763e9,  16.167e9,  16.167e9 
G12 ,  G13,  G23  =  5.8626e9,  5.8626e9,  5.7415e9 
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NU12 ,  NU13,  NU23  =  0.2786,  0.2786,  0.40799 
All,  A22 ,  A3 3  =  8.629e-6,  26.152E-6,  26.152E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 
mat  name  =  mat  name  +  [temp] 

##  material  -  5 
NAME  =  ' T300 ' 
temp  =  [ 5 ,  NAME ] 

Ell,  E22 ,  E33  =  138e9,  lle9,  lle9 

G12 ,  G13,  G23  =  5.5e9,  5.5e9,  3.9286e9 

NU12 ,  NU13,  NU23  =  0.28,  0.28,  0.4 
All,  A22 ,  A3 3  =  8.6e-6,  22.1E-6,  22.1E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 
mat  name  =  mat  name  +  [temp] 

##  material  -  6 
NAME  =  'HIGHS' 
temp  =  [ 6 ,  NAME ] 

Ell,  E22 ,  E33  =  41.7e9,  13e9,  13e9 
G12 ,  G13,  G23  =  3.4e9,  3.4e9,  4.6429e9 
NU12 ,  NU13,  NU23  =  0.3,  0.3,  0.4 
All,  A22 ,  A3 3  =  8.6e-6,  22.1E-6,  22.1E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 
mat  name  =  mat  name  +  [temp] 

##  if  you  need  to  add  more  materials  then  add  before  this  line. 

##  end  of  database 

del  mat  name [mat  name . index ( 0 ) ] 

## - 

## - 

GO  =  0 

print  '  - creating  the  laminate - ' 

if (theta  ==  90)  : 

##  seeding  controls 
cdmm  =  c_d/1000 

if  (load_case  ==  3) : 
if (ratio  ==  5) : 

if  (cdmm  ==  0.16) : 

seed_l  =  60 
el if  (cdmm  ==  0.32)  : 

seed_l  =  30 
el if  (cdmm  ==  0.48)  : 

seed_l  =  20 

elif  (cdmm  ==  0.64)  : 
seed_l  =  15 

else : 

if  (cdmm  ==  0.4): 

seed_l  =  24 
elif  (cdmm  ==  0.8) : 

seed_l  =  12 
elif  (cdmm  ==  1.2) : 

seed_l  =  8 

elif  (cdmm  ==  1.6) : 
seed  1  =  6 
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else : 

if ( ratio  ==  5 ) : 

if  (cdmm  ==  0.16)  : 

seed_l  =  40 
el if  (cdmm  ==  0.32)  : 

seed^l  =  20 
el if  (cdmm  ==  0.48)  : 

seed_l  =  15 
el if  (cdmm  ==  0.64)  : 
seed_l  =  10 

else : 

if  (cdmm  ==  0.4): 

seed_l  =  16 
el if  (cdmm  ==  0.8) : 

seed_l  =  8 
elif  (cdmm  ==  1.2) : 

seed_l  =  6 
elif  (cdmm  ==  1.6) : 
seed_l  =  4 

seed_5  =  int(4  *  ratioo)  ##  seeding  for  uncracked  layers  thickness 
if (load_case  ==  3) : 

seed_6  =  int(4  *  ratio)  ##  seeding  for  cracked  layers, 
else : 

seed_6  =  int(4  *  ratio) 

##  length  of  the  layer. 

a  =  thickness [ i ] /zeta  #  crack  spacing  and  breadth  of  the  layer 
b  =  a/10.0 

##  NOTE:  Here  ' b ’  is  ARBITRARY 

exec  open ( ' C : /model_ninety . py ' ) 

##  again  the  path  needs  to  be  specified, 
print  'Input  file  created.' 
print  '  ' 

print  'Opening  the  Input  file' 
if (load_case  ==  3) : 

loadcase  3  mag  1  =  3E6  *  2  *  b  *  ped  ##  for  inner  and  centered 

plies . 

loadcase_3_mag_2  =  3E6  *  a  *  b  ##  for  outer  plies, 
print  '  ' 

print  'This  is  for  out-of-plane  23  SHEAR  Loading  only' 
exec  open ( ' C : /bc_ninety_23 . py ' ) 
else : 

print  '  ' 

print  'This  is  for  INPLANE  loading' 
exec  open ( ' C : /bc_ninety . py ' ) 

GO  =  1 


if  (GO  ==  1) : 

print  '  ' 

print  'Runnning  the  File' 

laminatemodel  =  mdb . JobFromlnputFile (name  =  'Run  case  2',  inputFileName  = 
' runf ile . inp ' ) 

laminatemodel . submit ( ) 
laminatemodel . waitForCompletion  ( ) 
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statuss  =  laminatemodel . status 
print  'THE  ANALYSIS  IS',  statuss 


if (statuss  ==  COMPLETED): 

AA  =  session . openOdb (' C : /Krishna/MTC  ninety/Run  case  2 . odb ' ) 
session . viewports [ ' Viewport :  1 ' ]  . setValues (displayedOb j  ect=AA) 
session . viewports [ ' Viewport :  1 ' ] . odbDi splay . setDef ormedVariable ( 
variableLabel= ' U ' ) 

session . viewports [ ' Viewport :  1 ' ] . odbDi splay . setPrimaryVariable ( 
variableLabel= 'S',  outputPosition=INTEGRATION_POINT, 
refinement= (COMPONENT,  ' Sll ' ) ) 

else : 

print  'Only  Modeling' 

Code  for  building  the  model:  model  ninety.py 


### 


f--- 

Dx, 

Cx, 

Ax, 

Bx  = 

-a/2.0, 

a/2.0, 

-a/2.0, 

a/2.0 

Dy, 

Cy, 

Ay, 

By  = 

b/2.0. 

b/2.0. 

-b/2.0. 

-b/2.0 

Ex, 

Fx, 

Gx, 

Hx  = 

-a/2.0, 

a/2.0, 

-a/2.0, 

a/2.0 

Ey, 

Fy, 

Gy, 

Hy  = 

o 

o 

o 

o 

-b/4.0. 

-b/4.0 

lx. 

Jx, 

Kx, 

Lx  = 

-a/2.0, 

a/2.0, 

-a/4.0, 

o 

o 

iy. 

Jy, 

Ky, 

Ly  = 

b/4.0. 

b/4.0. 

-b/4.0. 

-b/4.0 

Mx, 

Nx, 

Ox, 

Px  = 

a/4.0, 

a/4.0, 

a/4.0, 

o 

o 

My, 

Ny, 

Oy, 

Py  = 

-b/4.0. 

o 

o 

b/4.0. 

b/4.0 

Qx, 

Qy 

=  -a/4.0, 

b/4.0 

Rx, 

Sx, 

Tx, 

Ux  = 

-a/4.0, 

o 

o 

-a/4.0, 

o 

o 

Ry, 

Sy, 

Ty, 

Uy  = 

o 

o 

o 

o 

-b/2.0. 

-b/2.0 

Vx, 

Wx, 

Xx, 

Yx  = 

a/4.0, 

a/4.0, 

o 

o 

-a/4.0 

Vy, 

Wy, 

Xy, 

Yy  = 

-b/2.0. 

b/2.0. 

b/2.0. 

b/2.0 

###  mid  points  of 

the  corners 

ATx,  ATy 

= 

(Ax 

+ 

Tx) /2.0, 

(Ay 

+ 

Ty) /2.0 

TUx,  TUy 

= 

(Tx 

+ 

Ux) /2 . 0, 

(Ty 

+ 

Uy) /2.0 

UVx,  UVy 

= 

(Vx 

+ 

Ux) /2 . 0, 

(Vy 

+ 

Uy) /2.0 

VBx,  VBy 

= 

(Vx 

+ 

Bx) /2 . 0 , 

(Vy 

+ 

By) /2.0 

BHx,  BHy 

= 

(Hx 

+ 

Bx) /2 . 0 , 

(Hy 

+ 

By) /2.0 

HFx,  HFy 

= 

(Hx 

+ 

Fx) /2.0, 

(Hy 

+ 

Fy) /2.0 

FJx,  FJy 

= 

( Jx 

+ 

Fx) /2.0, 

( Jy 

+ 

Fy) /2.0 

JCx,  JCy 

= 

( Jx 

+ 

Cx) /2.0, 

( Jy 

+ 

Cy) /2.0 

CWx,  CWy 

= 

(Wx 

+ 

Cx) /2.0, 

(Wy 

+ 

Cy) /2.0 

W Xx,  WXy 

= 

(Wx 

+ 

Xx) /2 . 0, 

(Wy 

+ 

Xy) /2.0 

XYx,  XYy 

= 

(Yx 

+ 

Xx) /2 . 0, 

(Yy 

+ 

Xy) /2.0 

YDx,  YDy 

= 

(Yx 

+ 

Dx) /2 . 0 , 

(Yy 

+ 

Dy) /2.0 

DIx,  Dly 

= 

(lx 

+ 

Dx) /2 . 0 , 

dy 

+ 

Dy) /2.0 

IEx,  IEy 

= 

(lx 

+ 

Ex) /2 . 0, 

(Iy 

+ 

Ey) /2.0 

EGx,  EGy 

= 

(Gx 

+ 

Ex) /2 . 0, 

(Gy 

+ 

Ey) /2.0 
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GAx, 

GAy 

— 

(Gx 

+ 

Ax) 

/2.0, 

(Gy 

+ 

Ay) /2.0 

QIx, 

Qiy 

= 

(lx 

+ 

Qx) 

/2.0, 

dy 

+ 

Qy) /2.0 

REx, 

REy 

= 

(Rx 

+ 

Ex) 

/  2.0, 

(Ry 

+ 

Ey) / 2.0 

KGx, 

KGy 

= 

(Gx 

+ 

Kx) 

/2.0, 

(Gy 

+ 

Ky) /2.0 

LKx, 

LKy 

= 

(Lx 

+ 

Kx) 

/2.0, 

(Ly 

+ 

Ky) /2.0 

SRx, 

SRy 

= 

(Sx 

+ 

Rx) 

/  2.0, 

(Ry 

+ 

Sy) / 2.0 

PQx, 

PQy 

= 

(Px 

+ 

Qx) 

/2.0, 

(Py 

+ 

Qy) / 2.0 

MLx, 

MLy 

= 

(Mx 

+ 

Lx) 

/2.0, 

(My 

+ 

Ly) /2.0 

NSx, 

NSy 

= 

(Nx 

+ 

Sx) 

/2.0, 

(Ny 

+ 

Sy) / 2.0 

OPx, 

OPy 

= 

(Ox 

+ 

Px) 

/  2.0, 

(Oy 

+ 

Py) / 2.0 

HMx, 

HMy 

= 

(Hx 

+ 

Mx) 

/  2 . 0 , 

(Hy 

+ 

My) / 2 . 0 

FNx, 

FNy 

= 

(Fx 

+ 

Nx) 

/  2.0, 

(Fy 

+ 

Ny) /2.0 

JOx, 

JOy 

= 

( Jx 

+ 

Ox) 

/2.0, 

( Jy 

+ 

Oy) /2.0 

YQx, 

YQy 

= 

(Yx 

+ 

Qx) 

/2.0, 

(Yy 

+ 

Qy) /2.0 

QRx, 

QRy 

= 

(Qx 

+ 

Rx) 

/2.0, 

(Qy 

+ 

Ry) / 2.0 

RKx, 

RKy 

= 

(Rx 

+ 

Kx) 

/  2.0, 

(Ry 

+ 

Ky) /2.0 

KTx, 

KTy 

= 

(Kx 

+ 

Tx) 

/2.0, 

(Ky 

+ 

Ty) / 2.0 

XPx, 

XPy 

= 

(Xx 

+ 

Px) 

/2.0, 

(Xy 

+ 

Py) /2.0 

PSx, 

PSy 

= 

(Px 

+ 

Sx) 

/2.0, 

(Py 

+ 

Sy) /2.0 

SLx, 

SLy 

= 

(Sx 

+ 

Lx) 

/  2.0, 

(Sy 

+ 

Ly) /2.0 

LUx, 

LUy 

= 

(Lx 

+ 

Ux) 

/2.0, 

(Ly 

+ 

Uy) / 2.0 

WOx, 

WOy 

= 

(W  x 

+ 

Ox) 

/2.0, 

(Wy 

+ 

Oy) /2.0 

ONx, 

ONy 

= 

(Ox 

+ 

Nx) 

/  2.0, 

(Oy 

+ 

Ny) /2.0 

NMx, 

NMy 

= 

(Nx 

+ 

Mx) 

/  2.0, 

(Ny 

+ 

My) / 2 . 0 

MVx, 

MVy 

= 

(Mx 

+ 

Vx) 

/2.0, 

(My 

+ 

Vy) /2.0 

##--■ 

— 

— 

— 

— 

— 

# - 

lammodel  =  mdb . Model (name= ' Laminate  Model') 

def  lami_part() : 

print'  Creating  the  Extruded  Part' 

#  coordinates  of  the  verticess 

rectcd  =  ( (a/2 . 0 , b/2 . 0 ) ,  ( -a/2 . 0 , b/2 . 0 ) ,  ( -a/2 . 0 , -b/2 . 0 ) ,  (a/2 . 0, -b/2 . 0)  , 

(0.0, 0.0) ) 

s  =  lammodel . Sketch (name= ' lamin ' ,  sheetSize  =  200.0) 

#  creating  the  rectangle. 

s . rectangle (pointl=rectcd [ 1 ] ,  point2=rectcd [ 3 ] ) 
hexpart  =  lammodel . Part (name= ' 1 ami ' ,  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

hexpart . BaseSolidExtrude ( sketch=s ,  depth=ped) 

#  viewport  options 

myViewport  =  session .Viewport (name= 'Viewport  for  Laminate  Model', 
origin=(10,  10),  width=150,  height=100) 
myViewport . setValues (displayedObject=hexpart) 
myViewport . partDisplay . setValues (renderStyle=SHADED) 
print ' Part  created  from  Extrusion' 

#  - 

def  lami  parti () : 

p2  =  lammodel . parts [' lami ' ] 
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for  inte  in  range (len (layup) -1) : 
increm  =  thick  location [inte] 

temp  6  =  p2 . DatumPlaneByThreePoints (pointl= ( 0 . 0 , 0 . 0 , increm) 
point2=(a/2. 0,0.0, increm) ,  point3=(0.0,b/2.0, increm) ) 
datams  =  temp  6. id 
call  =  p2 . cells 

ccall  =  call . findAt (( 0 ., 0 ., thick  midpoints [inte] ) ) 
p2 . PartitionCellByDatumPlane (cells=ccall, 
datumPlane=p2 . datums [datams ] ) 

print  'The  cells  are  partitioned  for  layers' 

# - 

def  lami  parti  2()  : 

p2  =  lammodel . parts [' lami ' ] 
c  =  p2 . cells 
f  =  p2. faces 
e  =  p2. edges 

#  creating  the  partition  for  seam  in  various  layers 

temp  6  =  p2 . DatumPlaneByThreePoints (pointl= ( 0 . 0 , -b/2 . 0 , ped) , 
point2=(0.0,-b/2. 0,0.0) ,  point3=(0.0,b/2.0, ped) ) 
datum  center  =  temp  6. id 
call  =  p2 . cells 

p2 . PartitionCellByDatumPlane (cells=call, 
datumPlane=p2 .datums [datum  center] ) 

#  - 

def  lami  parti  3()  : 

p2  =  lammodel . parts [' lami ' ] 
c  =  p2 . cells 
f  =  p2 . faces 
e  =  p2. edges 

temp  6  =  p2 . DatumPlaneByThreePoints (pointl= ( 0 . 0 , b/4 . 0 , ped) , 
point2=(0.0,b/4. 0,0.0) ,  point3=(a/2.0,b/4.0, ped) ) 
datum  center  =  temp  6. id 
call  =  p2 . cells 

p2 . PartitionCellByDatumPlane (cells=call, 
datumPlane=p2 .datums [datum  center] ) 

temp  6  =  p2 . DatumPlaneByThreePoints (pointl= ( 0 . 0 , -b/4 . 0 , ped) , 
point2=(0.0, -b/4. 0,0.0) ,  point3=(a/2.0,-b/4.0, ped) ) 
datum  center  =  temp  6. id 
call  =  p2 . cells 

p2 . PartitionCellByDatumPlane (cells=call, 
datumPlane=p2 .datums [datum  center] ) 

temp  6  =  p2 . DatumPlaneByThreePoints (pointl= ( -a/4 . 0 , -b/4 . 0 , ped) , 
a/4.0, -b/4. 0,0.0) ,  point3=(-a/4.0,b/4.0, ped) ) 
datum  center  =  temp  6. id 
call  =  p2 . cells 

p2 . PartitionCellByDatumPlane (cells=call, 
datumPlane=p2 .datums [datum  center] ) 

temp  6  =  p2 . DatumPlaneByThreePoints (pointl= (a/4 . 0 , b/4 . 0 , ped) , 
point2=(a/4.0, b/4. 0,0.0) ,  point3=(a/4.0,-b/4.0, ped) ) 
datum  center  =  temp  6. id 
call  =  p2 . cells 


point2 
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p2 . PartitionCellByDatumPlane (cells=call, 
datumPlane=p2 .datums [datura^center] ) 

temp  6  =  p2 . DatumPlaneByThreePoints (pointl= (a/2 . 0 , 0 . 0 , ped) , 
point2=(a/2. 0,0. 0,0.0) ,  point3=(0. 0,0.0, ped) ) 
datum  center  =  temp  6. id 
call  =  p2 . cells 

p2 . PartitionCellByDatumPlane (cells=call, 
datumPlane=p2 .datums [datum  center] ) 

##  - 

##  material  properties  of  the  plies. 

##  material  -  1 
def  lami  mater () : 
num  mat  =  0 

##  creating  lamina  material 

for  inte  in  range ( len (mat  name)) : 

algraphiteepoxy=lammodel .Material (name=mat  name [inte] [1]) 
propes  =  (mat  name [inte] [2],  mat  name [inte] [3],  mat  name [inte] [4], 
mat_name [inte] [5],  mat_name [inte] [6],  mat_name [ inte ] [7], 
mat_name [inte] [8],  mat_name [inte] [9],  mat_name [inte] [10]) 
algraphiteepoxy .Elastic (table= (propes,  ),  type=ENGINEERING  CONSTANTS) 
CTEprop  =  (mat  name [inte]  [11],  mat  name [inte]  [12], 
mat_name [inte] [13]) 

algraphiteepoxy . Expansion (type=0RTH0TR0PIC,  table= (CTEprop, ) ) 
num  mat  =  num  mat  +  1 
print  num  mat,  Materials  created' 

# - 1 - 

# - 

def  lami_section  1()  : 

p2  =  lammodel . parts [' lami ' ] 
c  =  p2 . cells 

for  inte  in  range ( len ( layup) ) : 

floc_3  =  thick  midpoints [ inte ] 
theta_l  =  layup [inte] 


name  1  = 

'CS  ’+str(inte) 

if (theta 

<  0)  : 

xl  = 

abs (a/2 . 0) 

yl  = 

0.0 

x2  = 

o 

o 

y2  = 

abs (b/ 2.0) 

else : 

xl  = 

a/2.0 

yl  = 

0.0 

x2  = 

0.0 

y2  = 

b/2.0 

yip  =  xl 

*  sin (theta 

l*pi/180) 

+  yi 

*  cos (theta 

l*pi/180 

xlp  =  xl 

*  cos (theta 

~l*pi/180) 

-  yl 

*  sin (theta 

~l*pi/180 

y2p  =  x2 

*  sin (theta 

l*pi/180) 

+  y2 

*  cos (theta 

l*pi/180 

x2p  =  x2 

*  cos (theta 

~l*pi/180) 

-  y2 

*  sin (theta 

”l*pi/180 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN, 
origin= ( 0 . , 0 . , f loc_3 ) , 
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pointl= (xlp, yip, floe  3),  point2= (x2p, y2p, f loc  3),  name=name  1) 
csind  =  CS . id 

c_cells  =  c . f indAt ( ( (0 . 0, b/2 . 0, f loc_3) , ) ,  ( ( 0 . 0 , -b/2 . 0 , f loc_3 ) , ) ) 

regi  =  regionToolset . Region (cells=c_cells ) 

name  2  =  'layer  ' +str (theta  1)+  '  '  +  str(inte) 

floe  4  =  materia [inte] 

section  2  =  lammodel . HomogeneousSolidSection (name=name  2,  material 
mat  name [floe  4  -  1 ] [ 1 ] ) 

p2 . SectionAssignment ( region=regi ,  sectionName=name  2) 
p2 . assignMaterialOrientation (region  =  regi, 
localCsys=p2 .datums [csind] ) 

print  'Coordinate  systems  created  and  material  orientations  assigned' 

# - 

# - 

def  lami  seam() : 

p2  =  lammodel . parts [' lami  '  ] 
c,  f,  e  =  p2. cells,  p2. faces,  p2. edges 
floe  =  thick  midpoints [ loc  ply  1-1] 
loc  =  len (thickness)  -  loc  ply  1 
floe  2  =  thick  midpoints [ loc] 

faces  =  f . f indAt (((0.,  0.0,  floe),),  ((0.0,  0.0,  floc_2) , ) ) 
regi  =  regionToolset . Region ( faces=f aces ) 
p2 . engineeringFeatures . assignSeam (regions  =  regi) 
print  'seams  are  created' 


# - 

def  lami  mesh  1 ()  : 

#  assigning  mesh  controls 

p2  =  lammodel . parts [' lami ' ] 

c,  e,  f  =  p2. cells,  p2. edges,  p2. faces 

seed_lb  =  1 

for  inte  in  range ( len ( layup) +1 ) : 
if  (inte  ==  0) : 

increm  =  0 
else : 

increm  =  thick  location [inte-1 ] 

edges  =  e . f indAt (( (ATx, ATy, increm) ,) ,  ( (TUx, TUy, increm) ,) , 

( (UVx, UVy, increm) , ) , 

( (VBx, VBy, increm) , ) ,  ( (CWx, CWy, increm) , ) , 

( (WXx, WXy, increm) , ) ,  ( (XYx, XYy, increm) , ) , 

( (YDx, YDy, increm) , ) , ) 


p2 . seedEdgeByNumber (edges=edges,  number=seed  1,  constraint=FIXED) 

edges  =  e . f indAt ( ( (HMx, HMy, increm) , ) ,  ( (MLx, MLy, increm) , ) , 

(  (LKx, LKy, increm) , ) , 


(  (KGx, KGy, increm) , ) ,  ( (FNx, FNy, increm) , ) , 


(  (NSx,NSy, increm) , ) , 


(  ( JOx, JOy, increm) , ) , 

(  (QIx, Qly, increm) , ) , ) 


(  (SRx, SRy, increm) , )  , 
(  (OPx, OPy, increm) , )  , 


(  (REx, REy, increm) , ) , 
(  ( PQx, PQy, increm) , ) , 
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p2 . seedEdgeByNumber (edges=edges,  number=seed  1,  constraint=FIXED) 

edges  =  e . f indAt ( ( (YQx, YQy, increm) ,  )  ,  ( (QRx, QRy, increm) , ) , 

( (RKx,  RKy, increm) , ) , 

( (KTx, KTy, increm) ,  )  ,  ( (XPx, XPy, increm) , ) , 

( (PSx,  PSy, increm) , ) , 

( (SLx, SLy, increm) ,  )  ,  ( (LUx, LUy, increm) , ) , 

( (WOx, WOy, increm) , ) , 

( (ONx, ONy, increm) ,  )  ,  ( (NMx, NMy, increm) , ) , 

( (MVx, MVy, increm) , )  , 

( (DIx, Dly, increm) ,  )  ,  ( (IEx, IEy, increm) , ) , 

( (EGx, EGy, increm) , ) , 

( (BHx, BHy, increm) ,  )  ,  ( (HFx, HFy, increm) , ) , 

( (FJx, FJy, increm) , ) , 

( ( JCx, JCy, increm) ,  )  ,  ( (GAx, GAy, increm) ,  )  ,  ) 
p2 . seedEdgeByNumber (edges=edges ,  number=seed  lb,  constraint=FIXED) 


for  inte  in  range ( len ( layup) ) : 

increm  =  thick  midpoints [inte] 


edges 

=  e . f indAt ( ( (Ax, 

Ay, 

increm) , ) , 

(  (Bx, 

By, 

increm) , ) , 

(  (Cx, 

Dy, 

increm) 

,  )  , 

(  (Dx, 

Dy, 

increm) , ) , 

(  (Ex, 

Ey, 

increm) , ) , 

(  (Fx, 

Fy, 

increm) 

,  )  , 

(  (Gx, 

Gy, 

increm) , ) , 

(  (Hx, 

Hy, 

increm) , ) , 

(  (lx. 

iy. 

increm) 

,  )  , 

(  (Jx, 

Jy, 

increm) , ) , 

(  (Kx, 

Ky, 

increm) , ) , 

(  (Lx, 

Ly, 

increm) 

,  )  , 

(  (Mx, 

My, 

increm) , ) , 

(  (Nx, 

Ny, 

increm) , ) , 

(  (Ox, 

Oy, 

increm) 

,  )  , 

(  (Px, 

Py, 

increm) , ) , 

(  (Rx, 

Ry, 

increm) , ) , 

(  (Sx, 

Sy, 

increm) 

,  )  , 

(  (Tx, 

Ty, 

increm) , ) , 

(  (Ux, 

Uy, 

increm) , ) , 

(  (Vx, 

Vy, 

increm) 

,  )  , 

(  (  Wx, 

Wy, 

increm) , ) 

,  ( (Xx, 

Xy, 

increm) , ) 

,  (  (Yx 

Yy, 

increm) 

,  )  ,  ) 

.  o tr  taiii uy  cuyiM  umhdtr  v 

slif(inte  ==(nol  -i  -1)) 


edges 

=  e . f indAt ( ( (Ax, 

Ay, 

increm) , ) , 

(  (Bx, 

By, 

increm) , ) , 

(  (Cx, 

Dy, 

increm) 

,  )  , 

(  (Dx, 

Dy, 

increm) , ) , 

(  (Ex, 

Ey, 

increm) , ) , 

(  (Fx, 

py. 

increm) 

,  )  , 

(  (Gx, 

Gy, 

increm) , ) , 

(  (Hx, 

Hy, 

increm) , ) , 

(  (lx. 

iy. 

increm) 

,  )  , 

(  (Jx, 

Jy, 

increm) , ) , 

(  (Kx, 

Ky, 

increm) , ) , 

(  (Lx, 

Ly, 

increm) 

,  )  , 

(  (Mx, 

My, 

increm) , ) , 

(  (Nx, 

Ny, 

increm) , ) , 

(  (Ox, 

Oy, 

increm) 

,  )  , 

(  (Px, 

Py, 

increm) , ) , 

(  (Rx, 

Ry, 

increm) , ) , 

(  (Sx, 

Sy, 

increm) 

,  )  , 

(  (Tx, 

Ty, 

increm) , ) , 

(  (Ux, 

Uy, 

increm) , ) , 

(  (Vx, 

Vy, 

increm) 

,  )  , 

(  (  Wx, 

Wy, 

increm) , ) 

,  ( (Xx, 

Xy, 

increm) , ) 

,  (  (Yx 

Yy, 

increm) 

,)  ,  ) 

edges,  number=seed  6,  constraint=FIXED) 
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else : 


edges  = 

e . f indAt ( ( (Ax, 

Ay, 

increm) , ) , 

(  (Bx, 

By, 

increm) , ) , 

(  (Cx, 

Dy, 

increm) 

,  )  , 

(  (Dx, 

Dy, 

increm) , ) , 

(  (Ex, 

Ey, 

increm) , ) , 

(  (Fx, 

Fy, 

increm) 

,  )  , 

(  (Gx, 

Gy, 

increm) , ) , 

(  (Hx, 

Hy, 

increm) , ) , 

(  (lx. 

H 

increm) 

,  )  , 

(  (Jx, 

Jy, 

increm) , ) , 

(  (Kx, 

Ky, 

increm) , ) , 

(  (Lx, 

Ly, 

increm) 

,  )  , 

(  (Mx, 

My, 

increm) , ) , 

(  (Nx, 

Ny, 

increm) , ) , 

(  (Ox, 

Oy, 

increm) 

,  )  , 

(  (Px, 

Py, 

increm) , ) , 

(  (Rx, 

Ry, 

increm) , ) , 

(  (Sx, 

Sy, 

increm) 

,  )  , 

(  (Tx, 

Ty, 

increm) , ) , 

(  (Ux, 

Uy, 

increm) , ) , 

(  (Vx, 

Vy, 

increm) 

,  )  , 

(  (  Wx, 

Wy, 

increm) , ) 

,  ( (Xx, 

Xy, 

increm) , ) 

,  ( (Yx, 

Yy,  increm)  ,  )  ,  ) 

p2 . seedEdgeByNumber (edges=edges,  number=seed  5,  constraint=FIXED) 


## 

#  hiding  the  datum  planes.,  not  supressing 

session . viewports [' Viewport  for  Laminate 
Model ' ] . part Display . geometryOptions . setValues (datumPlanes=OFF) 

##assigning  the  elements  and  meshing  the  model 

elemTypel  =  mesh . ElemType (elemCode=C3D8I ,  elemLibrary=STANDARD) 
cell  =  p2 . cells 
cells  =  (cell,  ) 
elements  =  (elemTypel) 

p2 . setElementType (regions=cells  ,  elemTypes= (elemTypel ,  )) 

c  =  p2. cells 
cells  =  (c, ) 

p2 . generateMesh ( regions=cells ) 

viewl  =  session .Viewport (name= ' Mesh  View  of  Laminate  Model', 
origin= ( 0 . , 0 . ) ) 

viewl . setValues (displayedOb j  ect=p2 ) 
session . viewports [' Mesh  View  of  Laminate 
Model ' ] . partDisplay . setValues (mesh=ON) 

viewl . assemblyDisplay .meshOptions . setValues (meshTechnique=ON, 
meshVisibleEdges=EXTERIOR) 

session . viewports [' Mesh  View  of  Laminate 
Model ' ] . partDisplay . geometryOptions . setValues (datumPlanes=OFF) 

##  session . viewports [' Mesh  View  of  Laminate  Model '] .maximize ( ) 

#  - 

def  lami^assembly ( ) : 

p2  =  lammodel . parts [' lami ' ] 
lamasseme  =  lammodel . rootAssembly 

laminsta  =  lamasseme . Instance (name  =  ' sublami ' ,  part  =  p2,  dependent  = 

ON) 

# - 

def  lami_step() : 

p4  =  lammodel . rootAssembly 
p2  =  lammodel . parts [' lami ' ] 

lammodel . StaticStep (name= ' Step-1 ' ,  previous= ' Initial ' ) 

# - 
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def  lami_load()  : 

p4  =  lammodel . rootAssembly 
inst  =  p4 . instances [' sublami ' ] 
v  =  inst . vertices 

v_l  =  v . f indAt ( ( (a/2 . 0 , b/2 . 0 , 0 . 0 ) , ) ) 
region  =  regionToolset . Region (vertices=v  1) 

lammodel . ConcentratedForce (name= ' Load ' ,  createStepName= ' Step-1 ' , 
region=region,  cfl=1000) 

# - 

def  lami_bc ( ) : 

p4  =  lammodel . rootAssembly 
vv  =  p4 . instances [' sublami ' ] 
v  =vv. vertices 

v_l  =  v . f indAt (( (a/2 . 0 , b/2 . 0 , ped) ,) ) 
region  =  regionToolset . Region (vertices=v  1) 

lammodel . DisplacementBC (name= ' BC1 ' ,  createStepName= ' Initial ' , 
region=region, 

ul=SET,  u2=UNSET ,  u3=UNSET,  url=UNSET,  ur2=UNSET,  ur3=UNSET, 
amplitude=UNSET,  localCsys=None) 

# - 

def  lami_j  ob ( )  : 

p4  =  lammodel . parts [' lami ' ] 

hex job  =  mdb . Job (name= ' Lami^Job ' , model=lammodel ) 
hex j  ob . write Input ( ) 

##  del  mdb .models [' Model-1 ' ] 

# - 

def  lami  assembly () : 

p2  =  lammodel . parts [' lami ' ] 
lamasseme  =  lammodel . rootAssembly 

laminsta  =  lamasseme . Instance (name  =  'sublami',  part  =  p2,  dependent  = 

ON) 


# - 

from  abaqus  import  * 

from  abaqusConstants  import  * 

from  section  import* 

import  part 

import  regionToolset 

import  displayGroupMdbToolset  as  dgm 

import  material 

import  section 

import  sketch 

import  assembly 

import  step 

import  interaction 

import  load 

import  mesh 

import  visualization 

import  xyPlot 

import  displayGroupOdbToolset  as  dgo 
import  job 
import  math 

lami_part  ( ) 
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lami  parti  ( ) 
lami  mater ( ) 
lami  section  1() 
lami  parti  2  ( ) 
lami  seam() 
lami  parti  3  ( ) 
lami  assembly () 
lami  mesh  1 ( ) 
lami_step ( ) 
lami_load ( ) 
lami_bc ( ) 
lami_j  ob ( ) 


Code  for  imposing  the  boundary  conditions:  bc  ninety.py 

#  this  program  writes  the  boundary  conditions  for  the 

#  * . inp  f ile . 

# 

# 

##  Note:  this  program  requires  the  information  from  run.py 
output  1  =  open (' runf ile . inp ' ,  ' w') 

output  2  =  open (' runf ile  2. inp',  'w') 
output_3  =  open (' element_sets . inp ' ,  ' w') 

## _ 

## _ 

## - 

def  reading  inp  file()  : 

global  num  node,  inte,  intee,  num  elem,  inte  el 

global  x,  y,  z,  num  n,  xa,  xb,  ya,  yb,  za,  zb,  xab,  yab,  zab 

global  nodel,  node2,  node3,  node4,  node5,  node6,  node7,  node8,  num_el 

global  tern,  tm,  nola,  crack  layer,  thickness,  crack  angle,  outer  layer 

global  num  ori,  bc3 

x,  y,  z,  num_n  =  [0],  [0],  [0],  [0] 

nodel,  node2,  node3,  node4=  [0],  [0],  [0],  [0] 

node5,  node6,  node7,  node8  =  [0],  [0],  [0],  [0] 

num^el  =  [0] 

inte,  intee  =  0,  0 

endfile,  node_flag,  elem_flag  =0,  0,  0  #  logical  operators 
num  node,  num  elem  =  0,  0  #  initializing  nodes  and  elements 
num  ori  =  0 

##  variables  from  run  lam  4  2.py 
nola  =  nol  #  number  of  layers 
crack  layer  =  loc_ply  1 
thickness  =  ped 

crack_angle  =  layup [loc_ply_l-l] 

##  print  crack^angle 

outer_layer  =  0  ##  the  cracked  layer  is  not  an  outer  layer  if  the  value 
is  one. 

input  =  open (' Lami^Job . inp ' ,  'r') 

strg  =  input . readlines ( ) 

while  inte  in  range ( len ( strg) ) : 
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strg_2  =  strg[inte] 

if(strg  2 [ 1 : 8 ] == ' Element ' ) : 
output_l . write ( strg_2 ) 
print  'Reading  Elements' 
int  el  =  inte 
while (elem  flag  !=  1) : 
int  el  =  int  el  +  1 
strg_3  =  strg  [int__el] 
if (strg_3[0] =='*')  : 
elem  flag  =  1 

strg  temp  =  '**  End  of  Elements\n' 
output_l .write (strg_temp) 


else : 

num  elem  =  num  elem  +  1 

elem  reading (na=num  elem,  stt=  strg  3) 

output_l .write (strg_3) 

num  el  =  num  el  +  [num  elem] 

nodel  =  nodel  +  [nodi] 

node2  =  node2  +  [nod2] 

node3  =  node3  +  [nod3] 

node4  =  node4  +  [nod4] 

node5  =  node5  +  [nod5] 

node6  =  node6  +  [nod6] 

node7  =  node7  +  [nod7] 

node8  =  node8  +  [nod8] 

inte  =  int  el 

nn  =  num  elem 

del  num  el [num  el. index (0)] 
del  nodel [nodel . index ( 0 )  ] 
del  node2 [node2 . index ( 0 )  ] 
del  node3 [node3 . index ( 0 )  ] 
del  node4 [node4 . index ( 0 )  ] 
del  node5 [node5 . index ( 0 )  ] 
del  node6 [node6 . index ( 0 )  ] 
del  node7 [node7 . index ( 0 )  ] 
del  node8 [node8 . index ( 0 )  ] 
f ace_pairs ( ) 

elif ( strg_2 [ 1 : 5 ]  ==  'Node'): 
output_l . write ( strg_2 ) 
print  'Reading  Nodes' 
intee  =  inte 
while  (node  flag  !=  1) : 
intee  =  intee  +  1 
strg_2  =  strg [intee] 
if (strg_2[0] =='*') : 
node_flag  =  1 

strg  temp  =  '**  End  of  Nodes\n' 
output_l .write (strg_temp) 
else : 

num  node  =  num  node  +  1 
node  reading (n=num  node,  st=strg  2) 
num  n  =  num  n  +  [num  node] 
x  =  x  +  [xl] 

y  =  y  +  [yi] 

z  =  z  +  [zl] 
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nn  =  num  node 

strrg  =  '  '+str(num  n[nn])+','+'  '+  str(x[nn] )  + 

'  +  str(y[nn] )  +  '  +  str(z[nn] )  +  '\n' 

output_l .write (strrg) 
inte  =  intee 
del  x [x . index ( 0 ) ] 
del  y [y . index ( 0 ) ] 
del  z  [  z . index ( 0 ) ] 
del  num  n[num  n. index (0)] 

xa,  xb,  ya,  yb,  za,  zb  =  max(x),  min (x) ,  max(y),  min(y),  max(z), 

min ( z ) 

xab  =  (xa  +  xb)/2.0 
yab  =  (ya  +  yb)/2.0 
zab  =  ( za  +  zb) /2 . 0 
cal_shf ( ) 

node  swap(nt  =  num  n,  xt  =  x,  yt  =  y,  zt  =  z) 

elif (strg_2 [0:2] =='**') : 

output_l .write (strg [inte] ) 

elif(strg  2 [ 0 : 9] == ' *Boundary ' ) : 
rigid_body_modes ( ) 
inte  =  inte  +  1 

elif ( strg_2 [0:8]==' * Re start '  )  : 

print  'Eliminating  Rigid  Body  Modes  and  writing  Loads' 

#  loads ( ) 

output_l . write ( strg_2 ) 

elif (strg_2 [ 0 : 6] == ' *Cload ' ) : 
print  'Writing  Loads' 
loads ( ) 

inte  =  inte  +  1 

elif (strg_2 [0:13] == ' *End  Instance ' ) : 
print  'Writing  Constraints' 
if (lumped  inner  ==  1) : 

corner  constraints  lump() 
edge  constraints  lump() 
face  constraints  lump() 
center  constraints  lump() 
else : 

corner_constraints () 
edge_constraints () 
f ace_constraints () 
center_constraints () 

output_l . write ( strg_2 ) 

elif (strg_2 [0 : 6]  ==  '*Elset'): 
output_l . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
intel  =  inte 
flag  =  0 

while (flag  ==  0) : 

intel  =  intel  +  1 
strg_5  =  strg [intel] 
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I  *  I 


if ( strg_5 [ 0 ]  ! = 

output_l .write (strg_5) 
output_3 . write ( strg_5 ) 
else : 

flag  =  1 

inte  =  intel  -  1 

elif ( strg_2 [ 0 : 14 ] == ' *Solid  Section') : 
output_l . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
intel  =  inte 
flag  =  0 

while (flag  ==  0)  : 

intel  =  intel  +  1 
strg_5  =  strg [intel] 
if (strg_5 [0]  !=  ' * ' ) : 

output_l .write (strg_5) 
output_3 . write ( strg_5 ) 
else : 

flag  =  1 

inte  =  intel  -  1 

elif (strg  2 [ 1 : 7 ] == ' Orient ' ) : 
output_l . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
intel  =  inte 
flag  =  0 

num^ori  =  num  ori  +  1 
while (flag  ==  0)  : 

intel  =  intel  +  1 
strg_5  =  strg [intel] 
if (strg_5 [0]  !=  ' * ' ) : 

output_l .write (strg_5) 
output_3 . write ( strg_5 ) 
else : 

flag  =  1 

inte  =  intel  -  1 

elif (strg  2 [1:13] == ' End  Assembly ' ) : 

strgg  =  ' *Nset,  nset=n^set  1,  instance=sublami  \n' 
output_l .write (strgg) 
strgg  =  str (c_l ) + ' \n ' 
output_l .write (str (strgg) ) 

strgg  =  ' *Nset,  nset=n  set  2,  instance=sublami  \n' 
output_l .write (strgg) 
strgg  =  str (c_2) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set_3,  instance=sublami  \n') 
strgg  =  str (c_l_2 ) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  4,  instance=sublami  \n') 
strgg  =  str (c_4) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  5,  instance=sublami  \n') 
strgg  =  str (bodyc) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  6,  instance=sublami  \n') 
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strgg  =  str (c_l_l) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  7,  instance=sublami  \n') 
strgg  =  str (c_6_x) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  8,  instance=sublami  \n') 
strgg  =  str (c_6_y) + ' \n ' 
output_l .write (strgg) 


generate  \n') 

strgg  = 

output_l .write (strgg) 

output_l .write ( ' *Nset, 
strgg  =  str(c  14m)+'\n' 
output_l .write (strgg) 

output_l .write ( ' *Nset, 
strgg  =  str (c_23m) + ' \n ' 
output_l .write (strgg) 

if (lumped  inner  ==  1) : 

output_l .write ( ' *Nset, 
strgg  =  str (c_2 1 ) + ' \n ' 
output_l .write (strgg) 
output_l .write ( ' *Nset, 
strgg  =  str (c_22 ) + ' \n ' 
output_l .write (strgg) 
output_l .write ( ' *Nset, 
strgg  =  str (bc2 ) + ' \n ' 
output_l .write (strgg) 
output_l .write ( ' *Nset, 
strgg  =  str (bc3 ) + ' \n ' 
output_l .write (strgg) 


nset=n  set  9,  instance=sublami ,  internal, 
strfnum  node)+','+'  ' +str ( 1 ) + ' \n ' 

nset=n  set  10,  instance=sublami  \n') 

nset=n  set  11,  instance=sublami  \n') 

nset=n  set  12,  instance=sublami  \n ' ) 

nset=n  set  14,  instance=sublami  \n ' ) 

nset=n  set  15,  instance=sublami  \n ' ) 

nset=n  set  16,  instance=sublami  \n ' ) 


output_l .write ( ' *Nset, 
str ( 1 )+','+ '  ' + 


output_l . write ( strg_2 ) 

print  'Nsets  for  rigid  body  modes  and  loads  -  created' 

el if ( strg_2 [1:14]==' Output,  field ' ) : 
output_l . write ( strg_2 ) 

output  1 . write (' *Element  output, position=centroid  \n') 
strgg  =  'Evol,  S  \n' 
output_l .write (strgg) 


else : 

output_l .write (strg [inte]  ) 
inte  =  inte  +  1 
else : 

print  'End  of  File' 


output_l . close ( ) 
output_2 . close ( ) 
output_3 . close  ( ) 

## _ 

## - 

def  cal  shf ( ) : 
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global  shf 

temp_x,  temp_y,  temp_z  =  [0],  [0],  [0] 

for  j  in  range ( len (x) ) : 

tt  =  abs (x [ j ] ) /1 0000 . 0 
tt  =  str(tt) 

temp  x  =  temp  x  +  [int (len  (tt) ) ] 

tt  =  abs (y [ j ] ) /10000 . 0 
tt  =  str(tt) 

temp_y  =  temp_y  +  [int (len (tt) ) ] 

tt  =  abs (z [ j ] ) /10000 . 0 
tt  =  str(tt) 

temp_z  =  temp_z  +  [int (len (tt) ) ] 

del  temp  x[temp  x. index (0)] 
del  temp_y [temp_y. index (0)  ] 
del  temp  z[temp  z. index (0) ] 

tx  i,  ty  i  =  temp  x . index (max (temp  x) ) ,  temp  y. index (max (temp  y) ) 
tz  i  =  temp  z . index (max (temp  z ) ) 

tx  max  =  x[tx  i] 
ty_max  =  y[ty_i] 
tz  max  =  z [tz  i] 
tt  =  [tx  max,  ty  max,  tz  max] 

ttt  =  [len (str (tx_max) ) ,  len (str (ty_max) ) ,  len (str (tz_max) ) ] 

tttt  =  str (tt [ttt . index (max (ttt) )] ) 

tttt  =  tttt . replace ('.' ,  '  ') 

tttt  =  tttt. split () 

t5  =  tttt[l] 

t5  =  len  (t5) 

sh  =  ' IE- ' +str ( 1 5  —  3 ) 

shf  =  float ( sh) 


def  node_reading (n,  st)  : 

global  num  nl,  xl,  yl,  zl 
num  nl  =  n 

xl ,  yl ,  zl  =  0 . ,  0 . ,  0 . 

n  ck  =  0 

strg_n  =  st . replace  (',' ,  '  ') 

strg_n  =  strg_n . split ( ) 

n_k  =  int ( strg_n [ 0 ] ) 

xl  =  f loat (strg_n [ 1 ] ) 

yl  =  float (strg_n [2] ) 

zl  =  f loat (strg_n [3 ] ) 


def  elem_reading (na,  stt)  : 

global  nodi,  nod2,  nod3,  nod4,  nod5,  nod6,  nod7,  nod8 

nodi,  nod2,  nod3,  nod4,  nod5,  nod6,  nod7,  nod8  =  0,  0,  0,  0,  0,  0,  0,  0 

strg_n  =  stt . replace  (','  ,  '  ') 

strg_n  =  strg_n . split ( ) 
n_k  =  int  ( strg__n  [  0  ]  ) 
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nodi 

nod2 

nod3 

nod4 

nod5 

nod6 

nod7 

nod8 


int ( strg_n [ 1  ]  ) 
int (strg_n [2] ) 
int ( strg_n [ 3 ] ) 
int ( strg_n [ 4 ] ) 
int ( strg_n [ 5 ] ) 
int (strg_n [6] ) 
int ( strg_n [ 7 ] ) 
int ( strg_n [ 8 ] ) 


# - 

def  node_swap (nt,  xt,  yt,  zt) : 

##  this  subroutine  detects  the  center  nodes,  corner  nodes,  edge  nodes  and 
face  nodes. 

global  tem,  tm 

global  c_l,  c_2,  c_3,  c_4,  c_l_l,  c_l_2,  bodyc,  bc2,  bc3 

global  cl35,  cl36,  cl46,  cl45,  c235,  c236,  c246,  c245 

global  cl46  2,  c236  2,  cl45_2,  c235  2 

global  ct_35,  ct_36,  ct_45,  ct_46 

global  e_35,  e_36,  e_45,  e_46 

global  e_15,  e_16,  e_25,  e_26 

global  e_13,  e_14,  e_23,  e_24 

global  f_l,  f_2,  f_3,  f_4,  shf 

global  c_6  x,  c  6  y,  c  14m,  c  23m 

global  c  11,  c  12,  c  21,  c  22,  c  21 

global  ck_z_l,  ck_z_2,  ck_z_3,  ck_z_4 

global  e  15c  11,  e  15c  22,  e  16c  11,  e  16c  22 

global  e  25c  11,  e  25c  22,  e  26c  11,  e  26c  22 

ck  z  1  =  thick[loc  ply  1-1] 
ck  z  2  =  thick [ loc_ply  1] 
locaa  =  nol  -  loc  ply  1+1 
ck  z^3  =  thick[locaa  -  1] 
ck  z  4  =  thick[locaa] 

j  =  0 

c_l ,  c_2 ,  c_3 ,  c_4  =  0 , 0 , 0 , 0 

c_ll,  c_12,  c_21,  c_22  =0,  0,  0,  0 

c_l_l,  c_l_2  =  0,0 

cl35,  cl36,  cl46,  cl45  =  0,0, 0,0 

c235,  c236,  c246,  c245  =  0,0, 0,0 

c  14m,  c  23m  =0,0 

cl46_2,  cl45_2,  c235_2,  c236_2  =  0,0, 0,0 
e  15c  11,  e  15c  22,  e  25c  11,  e  25c  22  =  0,  0,  0,  0 
e_16c_ll,  e_16c_22,  e_26c_ll,  e_26c_22  =0,  0,  0,  0 
trip_cl46,  trip_c236,  trip_cl45,  trip_c235  =  0,  0,  0,  0 
trip__cl511,  trip_cl611  =  0,  0 
trip_c2511,  trip_c2611  =  0,  0 

while  j  in  range (len (nt) ) : 

tx,  ty,  tz  =  x [ j ] ,  y [ j ] ,  z [ j ] 

if ( (abs (tx-xab) <=  shf) and (abs (ty-yb) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_l  =  nt[j] 

print  ' Face  center  -  1 '  ,  cl 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-ya) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_2  =  nt[j] 

print  ' Face  center  -  2 ' ,  c  2 
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el if ( (abs (xab-tx) <=shf ) and (abs (ty-ya) <=shf ) and (abs (tz-ck_z_l ) <=shf ) ) 
c_21  =  nt[j] 

print  'Face  center  -  2  1',  c  21 

elif ( (abs (tx-xa) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_3  =  nt[j] 

print  ' Face  center  -  3 ' ,  c_3 

elif ( (abs (tx-xb) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_4  =  nt[j] 

print  ' Face  center  -  4 ' ,  c  4 

elif ( (abs (xa-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (zb-tz) <=shf ) ) : 
cl35  =  nt [ j ] 

print  'Corner  135',  cl35 

elif ( (abs (xa-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (za-tz) <=shf ) ) : 
cl36  =  nt [ j ] 

print  'Corner  136',  cl36 

elif ( (abs (xb-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (za-tz) <=shf ) and 
(trip_cl46  ==  0) ) : 

cl46  =  nt [ j ] 
trip  cl46  =  1 

print  'Corner  146',  cl46 

elif ( (abs (xb-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (za-tz) <=shf )  and 
(trip_cl46  ==  1) ) : 

cl46_2  =  nt[j] 

print  'Corner  146  -  2  ',  cl46  2 

elif ( (abs (xb-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (zb-tz) <=shf )  and 
(trip_cl45  ==  0) ) : 

cl45  =  nt [ j ] 
trip  cl45  =  1 

print  'Corner  145',  cl45 

elif ( (abs (xb-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (zb-tz) <=shf )  and 
(trip_cl45  ==  1) ) : 

cl45_2  =  nt[j] 

print  'Corner  145  -  2',  cl45  2 

elif ( (abs (xa-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (zb-tz) <=shf )  and 
(trip_c235  ==  0) ) : 

c235  =  nt [ j ] 
trip_c235  =  1 

print  'Corner  235',  c235 

elif ( (abs (xa-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (zb-tz) <=shf )  and 
(trip_c235  ==  1) ) : 

c235_2  =  nt[j] 

print  'Corner  235  -  2',  c235  2 

elif ( (abs (xa-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (za-tz) <=shf )  and 
(trip_c236  ==  0) ) : 

c236  =  nt [ j ] 
trip_c236  =  1 

print  'Corner  236',  c236 

elif ( (abs (xa-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (za-tz) <=shf )  and 
(trip_c236  ==  1) ) : 

c236_2  =  nt[j] 

print  'Corner  236  -  2',  c236  2 

elif ( (abs (xb-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (za-tz) <=shf ) ) : 
c246  =  nt [ j ] 

print  'Corner  246',  c246 

elif ( (abs (xb-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (zb-tz) <=shf ) ) : 
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c245  =  nt  [  j ] 

print  'Corner  245',  c245 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-yab) <=shf ) and (abs (tz-zb) <=shf ) ) : 
c_l_l  =  nt [ j ] 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-yab) <=shf ) and (abs (tz-za) <=shf ) ) : 
c_l_2  =  nt[j] 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-yab) <=shf ) and (abs (tz-zab) <=shf ) ) : 
bodyc  =  nt [ j  ] 

elif ( (abs (tx-xb) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz-za) <=shf )  )  : 
c_6_x  =  nt[j] 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-ya) <=shf ) and (abs (tz-za) <=shf ) ) : 
c_6_y  =  nt[j] 

elif ( (abs (xb-tx) <=shf ) and (abs (ty-yb) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_14m  =  nt [ j ] 

elif ( (abs (xa-tx) <=shf ) and (abs (ty-ya) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_23m  =  nt [ j ] 

if (lumped  inner  ==  1)  : 

if ( (abs (xab-tx) <=shf ) and (abs (ty-yab) <=shf ) and (abs (tz- 
ck  z  4 ) <=shf )  )  : 

bc2  =  nt[j] 

print  'Body  center  -  2',  bc2 
elif ( (abs (tx-xab) <=shf ) and (abs (yb-ty) <=shf ) and (abs (tz- 
ck  z  1 ) <=shf )  )  : 

c_l 1  =  nt [ j ] 

print  'Face  center  -  31  ',  c  11 
elif ( (abs (tx-xab) <=shf ) and (abs (yb-ty) <=shf ) and (abs (tz- 
ck  z  4 ) <=shf ) ) : 

c_12  =  nt[j] 

print  'Face  center  -  32  ',  c  12 

elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  1 ) <=shf )  )  : 

c_21  =  nt[j] 

print  'Face  center  -  41  ',  c  21 
elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  4 ) <=shf )  )  : 

c_22  =  nt [ j ] 

print  'Face  center  -  42  ',  c  22 

elif ( (abs (tx-xb) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz-zab) <=shf ) ) 
bc3  =  nt[j] 

print  'New  BC  -  ',  bc3 
if (outerlayer  ==  1) : 

if ( (abs (tx-xab) <=shf) and (abs (yb-ty) <=shf)  and  (abs  (tz- 
ck  z  l)<=shf)  and  (trip  cl511  ==  0) ) : 

e_15c_ll  =  nt[j] 
trip  cl511  =  1 

elif ( (abs (tx-xab) <=shf) and (abs (yb-ty) <=shf)  and  (abs (tz- 
ck  z  l)<=shf)  and  (trip  cl511  ==  1) ) : 

e_15c_22  =  nt[j] 

elif ( (abs (tx-xab) <=shf ) and (abs (yb-ty) <=shf ) and (abs (tz- 
ck  z  4)<=shf)  and  (trip  cl611  ==  0) ) : 

e_16c_ll  =  nt[j] 
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trip  cl611  =  1 

elif ( (abs (tx-xab) <=shf ) and (abs (yb-ty) <=shf ) and (abs (tz- 
ck  z  4)<=shf)  and  (trip  cl611  ==  1) ) : 

e_16c_22  =  nt[j] 

elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  l)<=shf)  and  (trip  c2511  ==  0) ) : 

e_25c_ll  =  nt[j] 
trip  c2511  =  1 

elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  l)<=shf)  and  (trip  c2511  ==  1) ) : 

e_25c_22  =  nt[j] 

elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  4)<=shf)  and  (trip  c2611  ==  0) ) : 

e_26c_ll  =  nt[j] 
trip  c2611  =  1 

elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  4)<=shf)  and  (trip  c2611  ==  1) ) : 

e_26c_22  =  nt[j] 

j  =  j  +  1 

if ( (outerlayer  ==  0)  and  ( lumped_inner  ==  0) ) : 

tm  =  [cl35,  cl36,  cl46,  cl45,  c235,  c236,  c246,  c245] 
tem  =  [c_l,  c_2,  c_3,  c_4 ] 

elif ( (outerlayer  ==  1)  and  (lumped  inner  ==  0)) : 

tm  =  [cl35,  cl36,  cl46,  cl45,  c235,  c236,  c246,  c245, 

e  15c  11,  e  25c  11,  e  16c  11,  e  26c  11,  e  25c  22,  e  26c  22, 
e  15c  22,  e  16c  22] 

tem  =  [c_l,  c_2,  c_3,  c_4] 

elif (lumped  inner  ==  1)  : 


tm  = 

[cl35, 
c  11, 

cl36,  cl46,  cl45,  c235,  c236,  c246,  c245, 
c  12,  c  21,  c  22] 

tem  = 

[c  3, 

o 

1 

if ( 0  in  tm) : 

print  'Zero  in  tm' 
else : 

print  ' TM  is  complete  ' 

##  print  tm 

print  'Center  nodes  and  Corner  nodes  are  identified' 

## _ 

## - 

##  subroutine  to  detect  the  edge  node  35  36  45  46 


ct  35 , 

ct  36, 

ct  45,  ct 

o 

o 

II 

kQ 

■vT 

1 

0, 

0 

ct  15, 

ct  16, 

ct  25,  ct 

26  =  0,  0, 

0, 

0 

ct  13, 

ct  14 , 

ct  23,  ct 

_24  =  0,  0, 

0, 

0 

j  =  0 
front. 

f ronta. 

f rontb. 

frontc  =  0, 

0, 

0, 

0 

f rontd. 

f ronte 

,  frontf. 

frontg  =  0, 

0, 

0, 

0 

f ronth. 

f ronti 

,  frontj. 

frontk  =  0, 

0, 

0, 

0 
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e 

35, 

e 

36, 

e 

LO 

■vT 

e 

46  = 

[0]  , 

[0]  , 

[0]  , 

[0] 

e 

I—1 

Cn 

e 

CD 
\ — 1 

e 

LO 

CM 

e 

26  = 

[0]  , 

[0]  , 

[0]  , 

[0] 

e 

13, 

e 

\ — 1 

e 

23, 

e 

24  = 

[0]  , 

[0]  , 

[0]  , 

[0] 

while  j  in  range (len (nt) ) : 

tx,  ty,  tz  =  x[j],  y [ j ] ,  z [ j ] 
check  =  nt[j] 

front,  fronta,  frontb,  frontc  =  0,  0,  0,  0 

frontd,  fronte,  frontf,  frontg  =  0,  0,  0,  0 

fronth,  fronti,  front j ,  frontk  =  0,  0,  0,  0 

if  check  in  tem: 

front,  fronta,  frontb,  frontc  =  1,  1,  1,  1 

frontd,  fronte,  frontf,  frontg  =  1,  1,  1,  1 

fronth,  fronti,  front j ,  frontk  =  1,  1,  1,  1 

if  check  in  tm: 

front,  fronta,  frontb,  frontc  =  1,  1,  1,  1 

frontd,  fronte,  frontf,  frontg  =  1,  1,  1,  1 

fronth,  fronti,  front j ,  frontk  =  1,  1,  1,  1 

##  EDGE  35 

if ( (abs (tx-xa) <=shf ) and (abs (tz-zb) <=shf ) ) : 
if (front ! =1 ) : 

ct_35  =  ct_35  +  1 
e_35  =  e_35  +  [check] 

##  EDGE  36 

el if ( (abs (tx-xa) <=shf) and (abs(tz-za)<=shf) ) : 
if (fronta ! =1 ) : 

ct_36  =  ct_36  +  1 
e_36  =  e_36  +  [check] 

##  EDGE  45 

elif (  (abs (tx-xb) <=shf) and (abs (tz-zb) <=shf)  ): 
if (frontb ! =1 ) : 

ct_45  =  ct_45  +  1 
e  45  =  e  45  +  [check] 

##  EDGE  46 

elif ( (abs (tx-xb) <=shf) and (abs(tz-za)<=shf) ) : 
if (frontc ! =1 ) : 

ct_46  =  ct_46  +  1 
e  46  =  e  46  +  [check] 

##  EDGE  15 

elif ( (abs (ty-yb) <=shf ) and (abs (tz-zb) <=shf ) )  : 
if (frontd ! =1 ) : 

ct_15  =  ct_15  +  1 
e_15  =  e_15  +  [check] 

##  EDGE  25 

elif ( (abs (ty-ya) <=shf ) and (abs (tz-zb) <=shf) ) : 
if (fronte ! =1 ) : 
ct_25  =  ct_25  +  1 
e  25  =  e  25  +  [check] 

##  EDGE  16 
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## 


el if ( (abs (ty-yb) <=shf ) and (abs(tz-za)<=shf) ) : 
if ( f rontf ! =1 ) : 
ct_16  =  ct_16  +  1 
e_16  =  e_16  +  [check] 

EDGE  26 

el if ( (abs (ty-ya) <=shf ) and (abs(tz-za)<=shf) ) : 
if ( f rontg ! =1 ) : 

ct_26  =  ct_2  6  +  1 
e  26  =  e_26  +  [check] 

##  EDGE  13 

elif ( (abs (tx-xa) <=shf ) and (abs (ty-yb) <=shf ) )  : 
if ( f ronth ! =1 ) : 

ct_13  =  ct_13  +  1 
e_13  =  e_13  +  [check] 

##  EDGE  14 

elif ( (abs (tx-xb) <=shf ) and (abs (ty-yb) <=shf ) ) : 
if ( f ronti ! =1 ) : 

ct  14  =  ct  14  +  1 
e  14  =  e  14  +  [check] 

##  EDGE  23 

elif ( (abs (tx-xa) <=shf ) and (abs (ty-ya) <=shf ) ) : 
if ( front j ! =1 ) : 

ct_23  =  ct_23  +  1 
e  23  =  e  23  +  [check] 

##  EDGE  24 

elif ( (abs (tx-xb) <=shf ) and (abs (ty-ya) <=shf ) ) : 
if ( f rontk ! =1 ) : 

ct  24  =  ct  24  +  1 
e  24  =  e  24  +  [check] 

j  =  j  +  1 

del  e_35 [e_35 . index ( 0 )  ] 
del  e_36 [e_36 . index (0)  ] 
del  e_45 [e_45 . index (0) ] 
del  e_4 6 [e_4 6 . index ( 0 )  ] 
del  e_15 [e_15 . index (0)  ] 
del  e_l 6 [e_l 6 . index ( 0 )  ] 
del  e_25 [e_25 . index (0)  ] 
del  e_2 6 [e_2 6 . index ( 0 )  ] 
del  e_13 [e_13 . index (0)  ] 
del  e_23 [e_23 . index (0)  ] 
del  e  14 [e  14.index(0)] 
del  e  24 [e  24.index(0)] 
print  'Edge  nodes  are  identified' 


##  nodes  on  the  edges  are  identified.  These  nodes  have  to  be  paired  for 
writing 

##  the  constraint  equations.  the  node  pairs  are  based  on  the  boundary 
conditions . 

global  e_1626,  e_1525,  e_3646,  e_3545 

global  ct_e_1626,  ct_e_1525,  ct_e_3545,  ct_e_3646 

k  =  0 
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check  the 


m  =  0 

e_1626,  e_1525,  e_3545,  e_3646  =  [0],  [0],  [0],  [0] 

ct_e_1626,  ct_e_1525,  ct_e_3646,  ct_e_3545  =  0,  0,  0,  0 
if (ct_16  !=  ct_26) : 

print  'The  edges  nodes  are  not  compatible  16  26  -- 

code ' 

while  k  in  range (len (e  16)): 
checkl  =  e  1 6 [ k] 
txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  26)): 
check2  =  e  2 6 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (txl-tx2) <=shf )  : 

ct  e  1626  =  ct  e  1626  +  2 
e  1626  =  e  1626  +  [checkl] 
e  1626  =  e  1626  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_l 62 6 [e_l 62 6 . index ( 0 ) ] 

if ( (ct_e_1626/ct_16  !=  2)  and  (ct_e_1626/ct_26  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  16  and  26' 
else : 

print  '  Edge  pairs  16  and  26  are  identified' 

## - 

k,  m  =  0,  0 
if (ct_15  !=  ct_25) : 

print  'The  edges  nodes  are  not  compatible  15  25  --  check  the 

code ' 

while  k  in  range (len (e  15)): 
checkl  =  e  15 [k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e_25) ) : 
check2  =  e  25 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (txl-tx2) <=shf ) : 

ct_e_1525  =  ct_e_1525  +  2 
e_1525  =  e_1525  +  [checkl] 
e  1525  =  e  1525  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_1525  [e_1525 . index (0)  ] 

if ( (ct_e_1525/ct_15  !=  2)  and  (ct_e_1525/ct_25  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  15  and  25' 
else : 

print  '  Edge  pairs  15  and  25  are  identified' 

## - 

k,  m  =  0,  0 
if (ct_35  !=  ct_45) : 

print  'The  edges  nodes  are  not  compatible  35  45  --  check  the 

code ' 

while  k  in  range ( len (e_35 )) : 
checkl  =  e_35[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  45)): 
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1 ] ,  z [check2  -  1 ] 


check2  =  e  45 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  - 
if (abs (tyl-ty2) <=shf ) : 

ct_e_3545  =  ct_e_3545  +  2 
e_3545  =  e_3545  +  [checkl] 
e_3545  =  e_3545  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_3545 [e_3545 . index (0) ] 
if ( (ct_e_3545/ct_35  !=  2)  and  (ct_e_3545/ct_45  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  35  and  45' 
else : 

print  '  Edge  pairs  35  and  45  are  identified' 

## - 

k,  m  =  0,  0 
if (ct_36  !=  ct_46) : 

print  'The  edges  nodes  are  not  compatible  36  46  --  check 

code ' 

while  k  in  range (len (e_36) ) : 
checkl  =  e_36[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  46)): 
check2  =  e  4 6 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  - 
if (abs (tyl-ty2) <=shf )  : 

ct_e_3646  =  ct_e_3646  +  2 
e_3646  =  e_3646  +  [checkl] 
e_3646  =  e_3646  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_3646  [e_3646 . index (0)  ] 

if ( (ct_e_3646/ct_36  !=  2)  and  (ct_e_3646/ct_46  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  36  and  46' 
else : 

print  '  Edge  pairs  36  and  46  are  identified' 


global  ct  e  1424,  ct  e  2324,  ct  e  1324 

global  e_1424,  e_2324 , ^e_1324 

e_1424 ,  e_2324 ,  e_1324  =  [0],  [0],  [0] 

ct_e_1424,  ct_e_2324,  ct_e_1324  =  0,  0,  0 
k,  m  =  0,  0 
if (ct_14  ! =  ct_24 ) : 

print  'The  edges  nodes  are  noe  2324t  compatible  14  24  -- 

the  code ' 

while  k  in  range (len (e  14)): 
checkl  =  e  14 [k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  24)): 
check2  =  e  24 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  - 
if (abs (tzl-tz2 ) <=shf )  : 

ct  e  1424  =  ct  e  1424  +  2 
e_1424  =  e_1424  +  [checkl] 
e  1424  =  e  1424  +  [check2] 


the 


] 


check 
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m  =  m  +  1 
k  =  k  +  1 

del  e__1424  [e_1424.  index  (0)  ] 

if ( (ct_e_1424/ct_14  !=  2)  and  (ct_e_1424/ct_24  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  14  and  24  Uncracked 

Region ' 

else : 

print  '  Edge  pairs  14  and  24  are  identified  -  Uncracked  Region' 

## - 

k,  m  =  0,  0 
if (ct_23  ! =  ct_24 ) : 

print  'The  edges  nodes  are  not  compatible  23  24  --  check  the 

code ' 

while  k  in  range (len (e_23) ) : 
checkl  =  e  23 [k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  24)): 
check2  =  e  24 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tzl-tz2 ) <=shf ) : 

ct  e  2324  =  ct  e  2324  +  2 
e_2  32  4  =  e_2324  +  [checkl] 
e_2324  =  e_2324  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e  2324 [e_2324 . index (0) ] 

if ( (ct_e_2324/ct_23  !=  2)  and  (ct_e_2324/ct_24  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  23  and  24  Uncracked 

Region ' 

else : 

print  '  Edge  pairs  23  and  24  are  identified  -  Uncracked  Region' 

## - 

k,  m  =  0,  0 
if (ct_13  ! =  ct_24 ) : 

print  'The  edges  nodes  are  not  compatible  13  24  --  check  the 

code ' 

while  k  in  range (len (e  13)): 
checkl  =  e  13 [k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e_24) ) : 
check2  =  e  24 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if ( (abs (tzl-tz2 ) <=shf )  and  (abs (tyl  +  ty2)<=  shf ) ) : 
ct  e  1324  =  ct  e  1324  +  2 
e_1324  =  e_1324  +  [checkl] 
e_1324  =  e_1324  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_1324  [e_1324. index (0)  ] 

if ( (ct_e_1324/ct_13  !=  2)  and  (ct_e_1324/ct_24  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  13  and  24  Uncracked 

Region ' 

else : 

print  '  Edge  pairs  13  and  24  are  identified  -  Uncracked  Region' 

## - 
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## - 

def  face_pairs()  : 

##  nodes  on  faces  are  recognized  now.  we  do  not  need  face  5  and  face  6  nodes, 
global  ct_f_l,  ct_f_2,  ct_f_3,  ct_f_4 

global  f_lc,  f_2c,  ct_f_lc,  ct_f_2c,  f_3,  f_4,  f_l,  f_2 

ct_f_l,  ct_f_2,  ct_f_3,  ct_f_4  =0,  0,  0,  0 

f_l,  f_2 ,  f_3 ,  f_4  =  [0],  [0],  [0],  [0] 

f_lc,  f_2c  =  [0]  ,  [0] 

ct_f_lc,  ct_f_2c  =0,  0 

j  =  0 

while  j  in  range ( len (num  n)  )  : 

tx,  ty,  tz  =  x[j],  y [ j ] ,  z [ j ] 
check  =  num  n [ j ] 

frontl,  frontm,  frontn,  fronto  =  0,  0,  0,  0 


if 

check 

in 

tm: 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

tem: 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

35 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

36 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

'4  5 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

'4  6 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

15 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

2  5 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

16 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

2  6 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

13 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

2  3 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

14 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if 

check 

in 

e 

2  4 

frontl , 

frontm. 

frontn. 

fronto 

= 

1, 

1, 

1, 

1 

if (abs (ty-yb) <=shf ) : 

if ( (outerlayer  ==  0)  and  ( lumped_inner  ==  0) ) : 

if (  ( (tz>ck  z  1)  and  (tz<ck  z  2)  and  (abs (tx-xab) <=shf )  and 

not  (abs (tz-ck  z  l)<=shf)  and  not (abs (tz-ck  z  2)<=shf)) 

or  ( (tz<ck  z  4)  and  (tz>ck  z  3)  and  (abs (tx-xab) <=shf)  and 

not  (abs  (tz-ck  z__3)<=shf)  and  not  (abs  (tz-ck  z  4)<=shf))): 

if (frontl  ! =  1 ) : 

ct  f  lc  =  ct  f  1c  +  1 
f  lc  =  f  lc  +  [check] 

else : 

if (frontl  ! =  1 ) : 

ct  f  1  =  ct  f  1  +  1 
f  1  =  f  1  +  [check] 

elif ( (outerlayer  ==  0)  and  ( lumped_inner  ==  1)): 

if (  (tz>ck  z  1)  and  (tz<ck  z  4)  and  (abs (tx-xab) <=shf)  and 
not ( (abs (tz-ck_z_l ) <=shf )  or (abs (tz-ck_z_4 ) <=shf ) )  ): 

if (frontl  ! =  1 ) : 

ct  f  lc  =  ct  f  lc  +  1 
f  lc  =  f  lc  +  [check] 

else : 

if (frontl  ! =  1 ) : 

ctfl=ctfl+l 
f  1  =  f  1  +  [check] 
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elif ( (outerlayer  ==  1)  and  ( lumped_inner  ==  0)): 

if (  (  (tz>ck  z  1)  and  (tz<ck  z  2)  and  (abs (tx-xab) <=shf )  and 

not (abs (tz-ck_z_2 ) <=shf )  ) 

or  (  (tz<ck  z  4)  and  (tz>ck  z  3)  and  (abs (tx-xab) <=shf)  and 
not (abs (tz-ck_z_3) <=shf )  )  ): 

if ( f rontl  ! =  1 ) : 

ct  f  lc  =  ct  f  1c  +  1 
f  lc  =  f  lc  +  [check] 

else : 

if ( f rontl  ! =  1 ) : 

ct  f  1  =  ct  f  1  +  1 
f  1  =  f  1  +  [check] 

elif (abs (ty-ya) <=shf )  : 

if ( (outerlayer  ==  0)  and  ( lumped_inner  ==  0) ) : 

if (  ( (tz>ck  z  1)  and  (tz<ck  z  2)  and  (abs (tx-xab) <=shf)  and 

not  (abs (tz-ck  z  l)<=shf)  and  not (abs (tz-ck  z  2)<=shf)) 

or  ( (tz<ck  z  4)  and  (tz>ck  z  3)  and  (abs (tx-xab) <=shf)  and 
not  (abs (tz-ck  z  3)<=shf)  and  not (abs (tz-ck  z  4)<=shf)  )  )  : 

if ( f rontm  ! =  1 ) : 

ct  f  2c  =  ct  f  2c  +  1 
f  2c  =  f  2c  +  [check] 

else : 

if ( f rontm  ! =  1 ) : 

ct  f  2  =  ct  f  2  +  1 
f  2  =  f  2  +  [check] 

elif ( (outerlayer  ==  0)  and  (lumped  inner  ==  1)) : 

if (  (tz>ck  z  1)  and  (tz<ck  z  4)  and  (abs (tx-xab) <=shf)  and 
not ( (abs (tz-ck_z_l ) <=shf )  or (abs (tz-ck_z_4 ) <=shf ) )  ): 

if ( f rontm  ! =  1 ) : 

ct  f  2c  =  ct  f  2c  +  1 
f  2c  =  f  2c  +  [check] 

else : 

if ( f rontm  ! =  1 ) : 

ct  f  2  =  ct  f  2  +  1 
f_2  =  f_2  +~ [check] 

elif ( (outerlayer  ==  1)  and  ( lumped_inner  ==  0)): 

if (  (  (tz>ck  z  1)  and  (tz<ck  z  2)  and  (abs (tx-xab) <=shf)  and 

not (abs (tz-ck_z_2 ) <=shf )  ) 

or  (  (tz<ck  z  4)  and  (tz>ck  z  3)  and  (abs (tx-xab) <=shf)  and 
not (abs (tz-ck_z_3) <=shf )  )  ): 

if ( f rontm  ! =  1 ) : 

ct  f  2c  =  ct  f  2c  +  1 
f  2c  =  f  2c  +  [check] 

else : 

if ( f rontm  ! =  1 ) : 

ct  f  2  =  ct  f  2  +  1 
f_2  =  f_2  +_ [check] 

elif (abs (tx-xa) <=shf ) : 

if ( f rontn  ! =  1 ) : 

ct_f_3  =  ct_f_3  +  1 
f  3  =  f  3  +  [check] 
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elif (abs (tx-xb) <=shf )  : 
if ( f ronto  ! =  1 )  : 

ct  f  4  =  ct  f  4  +  1 
f  4  =  f  4  +  [check] 

j  =  j  +  1 


if (outerlayer  == 

=  i; 

)  : 

f  lc  = 

f  lc 

+ 

[e_ 

15c 

11] 

f  lc  = 

l-h 

l—1 

O 

+ 

[e_ 

15c 

22] 

f  lc  = 

u 
\ — 1 

9-1 

+ 

[e_ 

16c 

'll] 

f  lc  = 

f_ic 

+ 

[e_ 

\l  6c_ 

22] 

f  2c  = 

f  2c 

+ 

[e_ 

25c 

11] 

f  2c  = 

f  2c 

+ 

[e_ 

"25c 

22] 

ll 

o 

CM 

M-l 

f  2c 

+ 

[e_ 

"2  6c 

’ll] 

f  2c  = 

f  2c 

+ 

[e_ 

"2  6c 

22] 

del  f_l [ f_l . index ( 0 ) ] 
del  f  2[f  2. index (0)] 
del  f_3 [ f_3 . index ( 0 )  ] 
del  f  4 [ f  4. index (0)] 

del  f_lc [ f_lc . index ( 0 )  ] 
del  f  2c[f  2c.index(0)] 

print  'Face  nodes  are  identified' 

## - 

##  this  routine  is  for  identifying  the  node  pairs  in  all  the  combinations  of 
edge  pairs, 

##  face  pairs,  corner  node  pairs,  face  center  pairs. 

## - 

global  ct  f  12,  ct  f  34,  fp  12,  fp  34 

j ,  k  =  0,  0 

fp_12 ,  fp_34  =  [0],  [0] 

ct_f_12,  ct_f_34  =0,  0 

while  j  in  range (len(f  1)): 
if (ct_f_l  !=  ct_f_2) : 

print  'Face  pairs  FI  and  F2  are  not  matched' 
checkl  =  f_l [ j ] 

txl,  tyl,  tzl  =  x[checkl  -  l],y[checkl  -  1],  z[checkl  -  1] 
k  =  0 

while  k  in  range (len(f  2)): 
check2  =  f  2 [ k] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (  (abs (txl  -  tx2)  <=  shf)  and  (abs (tzl  -  tz2)  <=  shf)  and 
(abs (tyl  +  ty2)  <=  shf)): 

ct_f_12  =  ct_f_12  +  2 
fp  12  =  fp  12  +  [checkl] 
fp  12  =  fp  12  +  [check2] 
k  =  k  +  1 
j  =  j  +  1 

del  fp  12 [fp  12.index(0)] 

if ( (ct_f_12/ct_f_l  ! =  2)  and  (ct_f_12/ct_f_2  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  Face  1  and  Face  2 ' 


169 


## 


Face  pairs  FI  and  F2  are  identified 


else : 

print  ' 


j  ,  k  =  0, 0 

while  j  in  range (len(f  3)): 
if (ct_f_3  !=  ct_f_4) : 

print  'Face  pairs  FI  and  F2  are  not  matched' 
checkl  =  f_3 [ j ] 

txl,  tyl,  tzl  =  x[checkl  -  l],y[checkl  -  1],  z[checkl  -  1] 
k  =  0 

while  k  in  range (len(f  4)): 
check2  =  f  4 [ k] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if  (  (abs (txl  +  tx2)  <=  shf)  and  (abs (tzl  -  tz2)  <=  shf)  and 
(abs (tyl  -  ty2)  <=  shf)): 

ct  f_34  =  ct  f  34  +  2 
fp  34  =  fp  34  +  [checkl] 
fp  34  =  fp  34  +  [check2] 
k  =  k  +  1 
j  =  j  +  1 

del  fp_34 [ fp_34 . index ( 0 ) ] 

if ( (ct_f_34/ct_f_3  ! =  2)  and  (ct_f_34/ct_f_4  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  Face  3  and  Face  4 ' 
else : 

print  '  Face  pairs  F3  and  F4  are  identified' 


## - 

global  e  lc_el,  e  lc_n,  e  2c  el,  e  2c  n 

e_lc_el ,  e_lc_n,  e_2c_el,  e_2c_n  =  [0],  [0],  [0],  [0] 

k,  m  =  0,  0 

e_lc_n,  e_lc_el  =  [0] ,  [0] 

while  k  in  range (len(f  lc) ) : 
check  =  f  lc[k] 
m  =0 

while  m  in  range ( len (nodel )) : 
checkl  =  nodel [m] 
check2  =  node2 [m] 
check3  =  node3 [m] 
check4  =  node4 [m] 
check5  =  node5 [m] 
check6  =  node6[m] 
check7  =  node7 [m] 
check8  =  node8 [m] 
if  check  in  e  lc  n: 

pass 
else : 

if ( (check  ==  checkl)  or  (check  ==  check2)  or  (check  == 
check3)  or  (check  ==  check4) 

or  (check  ==  check5)  or  (check  ==  check6)  or  (check  == 
check7)  or  (check  ==  check8))  : 

check9  =  num  el [m] 
e_lc_el  =  e_lc_el  +  [check9] 
e  lc_n  =  e  lc  n  +  [check] 
m  =  m  +  1 
k  =  k  +  1 

del  e  lc  el [e  lc  el.index(O)] 
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del  e_lc_n [e_lc_n . index ( 0 ) ] 

## - 

## - 

global  e  lc_BOBp,  e  lc  BBp 

##  from  math  import  acosFace  nodes  are  identified 
##  pi  =  acos (-1.0) 
k,  m  =  0,  0 

e_lc_BOBp,  e_lc_BBp  =  [0] ,  [0] 

while  k  in  range (len (e  lc  el)): 
check  =  e_lc_el[k] 
check2  =  e  lc  n[k] 

tl,  t2,  t3,  t4  =  nodel [check  -  1],  node2 [check  -  1],  node3 [check  - 
1] ,  node4 [check  -  1] 

t5,  t6,  t7,  t8  =  node5 [check  -  1],  node6 [check  -  1],  node7 [check  - 
1] ,  node8 [check  -  1] 


txl , 

tx2,  tx3. 

tx4  = 

X 

[ti  - 

-  1], 

x  [t2  - 

1] 

,  x 

[t3  - 

1]  , 

.  x[t4 

-  1] 

tx5 , 

tx6,  tx7. 

tx8  = 

X 

[t5  - 

-  1], 

x  [t6  - 

1] 

,  x 

[  1 7  - 

1]  , 

•  x  [  1 8 

-  1] 

tyl. 

ty2 ,  ty3. 

ty4  = 

y 

[tl  - 

-  1], 

y[t2  - 

1] 

t  y 

[t3  - 

1]  , 

•  y[t4 

-  1] 

ty5. 

ty6,  ty7. 

ty8  = 

y 

[t5  - 

-  1], 

y[t6  - 

1] 

<■  y 

[  1 7  - 

1]  , 

•  y[t8 

-  1] 

tempx 

.  =  1/8.0 

*  (txl 

+ 

tx2 

+  tx3 

+  tx4 

+ 

tx5 

+  tx6 

+ 

tx7  + 

tx8 ) 

tempy 

=  1/8.0 

*  (tyl 

+ 

ty2 

+  ty3 

+  ty4 

+ 

ty5 

+  ty6 

+ 

ty7  + 

ty8) 

##  from  math  import  atan 

##  tempxy  =  atan (tempy/tempx)  *  180  /  pi 

if (tempx  >  0.0  ) : 

e  lc  BBp  =  e  lc  BBp  +  [check2] 
el if (tempx  <  0.0): 

e  lc  BOBp  =  e  lc  BOBp  +  [check2] 
k  =  k~+  1 

del  e  lc  BOBp[e  lc  BOBp . index ( 0 ) ] 
del  e  lc  BBp[e  lc  BBp . index ( 0 ) ] 

## - 

## - 

k,  m  =  0,  0 

while  k  in  range (len (f  2c)): 
check  =  f_2c[k] 
m  =0 

while  m  in  range ( len (nodel )) : 
checkl  =  nodel [m] 
check2  =  node2 [m] 
check3  =  node3 [m] 
check4  =  node4 [m] 
check5  =  node5 [m] 
check6  =  node6[m] 
check7  =  node7 [m] 
check8  =  node8 [m] 
if  check  in  e  2c  n: 

pass 
else : 

if ( (check  ==  checkl)  or  (check  ==  check2)  or  (check  == 
check3)  or  (check  ==  check4) 

or  (check  ==  check5)  or  (check  ==  check6)  or  (check  == 
check7)  or  (check  ==  check8)  )  : 

check9  =  num  el [m] 

e_2c_el  =  e_2c_el  +  [check9] 

e  2c  n  =  e  2c  n  +  [check] 
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## 


m  =  m  +  1 
k  =  k  +  1 

del  e_2c_el [e_2c_el . index ( 0 ) ] 
del  e  2c  n[e  2c  n.index(O)] 


1]  , 
1]  , 


k,  m  =  0,  0 

global  e  2c_DODp,  e  2c  DDp,  pi 
e_2c_DODp,  e_2c_DDp  =  [0] ,  [0] 

while  k  in  range ( len (e_2c  el)): 
check  =  e  2c  el[k] 
check2  =  e  2c  n[k] 

tl,  t2,  t3,  t4  =  nodel [check  -  1],  node2 [check  -  1], 
node4 [check  -  1] 

t5,  t6,  t7,  t8  =  node5 [check  -  1],  node6 [check  -  1], 
node8 [check  -  1 ] 


txl , 

tx2 , 

tx3. 

tx4 

=  x  [tl 

-  i]. 

x  [t2  - 

1] , 

x  [t3 

-  1], 

tx5 , 

tx6. 

tx7 , 

tx8 

=  x  [t5 

-  i]. 

x  [t6  - 

1] , 

x  [t7 

-  1], 

tyl. 

ty2 , 

ty3. 

ty4 

=  y  [tl 

-  i]. 

y[t2  - 

1] , 

y  [t3 

-  1], 

ty5. 

ty6. 

ty7 , 

ty8 

=  y[t5 

-  i]. 

y[t6  - 

1] , 

y[t7 

-  1], 

tempx  =  1/8.0  *  (txl  +  tx2  +  tx3  +  tx4  +  tx5  +  tx6  + 
tempy  =  1/8.0  *  (tyl  +  ty2  +  ty3  +  ty4  +  ty5  +  ty6  + 
tempxy  =  atan (tempy/ tempx)  *  180  /  pi 
if (tempx  <  0.0  ) : 

e  2c  DODp  =  e  2c  DODp  +  [check2] 
elif (tempx  >  0.0  ): 

e  2c  DDp  =  e  2c  DDp  +  [check2] 


node3 [check  - 
node7 [check  - 


x  [  1 4 

-  1] 

x  [  1 8 

-  1] 

y[t4 

-  1] 

y[t8 

-  1] 

tx7  + 

tx8 ) 

ty7  + 

ty8) 

k  =  k  +  1 

del  e  2c  DODp[e  2c  DODp . index ( 0 ) ] 
del  e  2c  DDp[e  2c  DDp . index ( 0 ) ] 

## - - - - - 

## 

global  f  12c  BDp,  ct  f  12c 
f_12c_BDp,  ct_f_12c  =  [0] ,  0 
k, m  =  0,0 

while  k  in  range (len (e  lc^BBp) ) : 
check  =  e  lc_BBp[k] 

txl,  tyl,  tzl  =  x[check-l],  y[check-l],  z[check-l] 
m  =  0 

while  m  in  range (len (e  2c_DDp) ) : 
check2  =  e  2c  DDp [m] 

tx2,  ty2,  tz2  =  x[check2-l],  y[check2-l],  z[check2-l] 
if (abs (tzl-tz2 ) <=shf ) : 

ct  f  12c  =  ct  f  12c  +  2 
f  12c  BDp  =  f  12c  BDp  +  [check] 
f  12c  BDp  =  f  12c  BDp  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  f  12c  BDp[f  12c  BDp . index ( 0 ) ] 

if ( (ct  f  12c/len(e  2c  DDp)  !=  2)  and  (ct  f  12c/len(e  1c  BBp)  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  1C  and  2  C  ' 
else : 

print  '  Face  pairs  1  C  and  2  C  are  identified  ' 

## - 

## - 

## 

global  f  12c  BODp,  ct  f  12cd 
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f_12c_B0Dp,  ct_f_12cd  =  [0]  ,  0 
k, m  =  0,0 

while  k  in  range (len (e  lc^BOBp) ) : 
check  =  e  lc  BOBp[k] 

txl,  tyl,  tzl  =  x[check-l],  y[check-l],  z[check-l] 
m  =  0 

while  m  in  range (len (e  2c  DODp) ) : 
check2  =  e_2c  DODp [m] 

tx2,  ty2,  tz2  =  x[check2-l],  y[check2-l],  z[check2-l] 
if (abs (tzl-tz2 ) <=shf ) : 

ct  f  12cd  =  ct  f  12cd  +  2 
f  12c  BODp  =  f  12c  BODp  +  [check] 
f  12c  BODp  =  f  12c  BODp  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  f  12c  BODp[f  12c  BODp . index ( 0 )  ] 

if ( (ct  f  12cd/len(e  2c  DODp)  !=  2)  and  (ct  f  12cd/len(e  lc  BOBp)  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  1C  and  2  C  ' 
else : 

print  '  Face  pairs  1  C  and  2  C  are  identified  ' 

## - 

def  f ace_constraints ( )  : 
k,  m  =  0,0 

while  k  in  range (len (fp  12)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  12[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  12 [ k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  1  and  2  are  written' 

## - 

k, m  =  0,0 

while  k  in  range (len (fp  34)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  34[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  34[k+l])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 
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strgg  =  '  '  +  str (c  4)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  3  and  4  are  written' 

## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  12c  BDp) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BDp[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BDp [k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  3  and  4  are  written' 


## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  12c  BODp) ) : 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  B0Dp[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BODp [ k+1 ])+', '  +'  '+  str (m+1 )+','+ ' 

' +str  (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)+', '  +'  '+  str(m+l)+', '+'  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  3  and  4  are  written' 

## - 

## - 

def  corner_constraints ( )  : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
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output_l .write (strgg) 

strgg  =  '  '  +  str(cl46)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_2)+','  +' 

output_l .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(3)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c236)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +' 

output_l .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(4)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(cl36)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_2)+','  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+','  +' 

output_l .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(3)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(cl45)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c245)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_2)+','  +' 

output_l .write (strgg) 

m  =  m  +  1 


'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )+','+ '  '+str(-1.0)  +  ' \n 

+  str (m+1 )+','+ '  ' +str(2.0)  +  ' \n' 


'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )+','+ '  '+str(-1.0)  +  ' \n 

+  str (m+1 )+','+ '  '+str(2.0)  +  '\n' 


' +  str (m+1 ) + ' , ' + ' 

' +str (1.0)+' 

1  \n  1 

' +  str (m+1 ) + ' , ' + ' 

1 +str (-1.0) 

+  ' 

+  str (m+1 ) + ' , ' + ' 

1 +str (2.0)  + 

'  \n 

+  str (m+1 ) + ' , ' + ' 

1  +str (2.0)  + 

'  \n 

'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )+','+ '  '+str(-1.0)  +  ' \n 

+  str (m+1 )+','+ '  '+str(2.0)  +  '\n' 


m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 


175 


strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (c235) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c245)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (cl35) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c245)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  +  '\n' 


output_l .write (strgg) 


strgg  =  ' 

'  +  str (c  2 ) + ' , '  + ' 

' +  str (m+1 )  +  '  ,  '  +  ' 

'  +str (2.0)  + 

'  \n 

output  1 . write ( strgg) 

strgg  =  ' 

'  +  str (c  4 ) + ' , '  + ' 

' +  str (m+1 )  +  ' ,  '  +  ' 

'  +str (2.0)  + 

'  \n 

output_l .write (strgg) 
m  =  m  +  1 


print  '  Corner  Constraints  are  written' 

## - 

## - 

def  edge_constraints ( )  : 

k, m  =  0,0 

while  k  in  range (len (e  1626)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (e  1626[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (e  1626 [k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  16  and  26' 
k, m  =  0,0 

while  k  in  range (len (e  1525)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
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strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  1525  [k] )  +  '  ,  '  +'  '+  str (m+1 )  +  ','  +  ' 

' +str ( 1 . 0 )  +  ' \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  1525 [k+1] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  15  and  25' 
k,  m  =  0,0 

while  k  in  range (len (e_3545) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  3545 [k] ) +' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  3545 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  35  and  45' 
k, m  =  0,0 

while  k  in  range (len (e_3646) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  3646[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  3646 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  36  and  46' 
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k, m  =  0,0 

while  k  in  range (len (e  1424)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  1424[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  1424 [k+1] ) +' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  14  and  24' 
k, m  =  0,0 

while  k  in  range (len (e_2324) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  2324[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  2324 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  23  and  24' 
k,  m  =  0,0 

while  k  in  range (len (e  1324)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  1324[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  1324 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 
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strgg  =  '  '  +  str(c  2)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  13  and  24' 


## - 

## - 

def  center_constraints ( )  : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 
strgg  =  '  '  +  str(c_l)+ 

output_l .write (strgg) 
strgg  =  '  '  +  str(c_2)+ 

output_l .write (strgg) 
m  =  m  +  1 


+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

+  str (m+1 )+','+ '  '+str(1.0)  +  '\n' 


m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 
strgg  =  '  '  +  str(c_3)+','  + 

output_l .write (strgg) 
strgg  =  '  '  +  str(c_4)+','  + 

output_l .write (strgg) 
m  =  m  +  1 


+  str (m+1 )+','+ '  ' +str ( 1 . 0) + ' \n ' 

+  str (m+1 )+','+ '  '+str(1.0)  +  ' \n 


print  '  Face  Center  Constraints  are  written' 


## - 

##  CODE  STARTS  FOR  LUMPED  INNER  LAYERS  WITH  ZERO  ORIENTATION 
## - 


def  corner  constraints  lump() : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(4)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(cl46)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  21)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +' 

output_l .write (strgg) 

m  =  m  +  1 


'  +  str (m+1 )  +  '  ,  '  +  ' 
'  +  str (m+1 )  +  '  ,  '  +  ' 
'  +  str (m+1 )  +  '  ,  '  +  ' 
'  +  str (m+1 )  +  ' ,  '  +  ' 


'  +str ( 1 . 0 )  +  ' \n ' 

'  +str (-1.0)  +  ' \n ' 

' +str (1.0)  +  ' \n ' 

'  +str (1.0)  +  ' \n ' 
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m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (c236) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  +  ' \n 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 


m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(5)  +  '\n' 
output_l .write (strgg) 
strgg  =  '  '  +  str(cl36)  +  ',  ' 

output_l .write (strgg) 
strgg  =  '  '  +  str(c246)  +  ',  ' 

output_l .write (strgg) 
strgg  =  '  '  +  str (c_21) + ' , ' 

output_l .write (strgg) 
strgg  =  '  '  +  str (c_22 ) + ' , ' 

output_l .write (strgg) 
strgg  =  '  '  +  str(c_4)+',' 

output_l .write (strgg) 
m  =  m  +  1 


'  ' +  str (m+1 ) + ' , ' + ' 

'  ' +  str (m+1 ) + ' , ' + ' 

'  '  +  str (m+1 )  +  ' ,  '  +  ' 

'  '  +  str (m+1 )  +  ' ,  '  +  ' 

'  +  str (m+1 )  +  ' ,  '  +  ' 


'  +str ( 1 . 0 )  +  ' \n ' 

' +str (-1.0)  +  '  \n 

' +str (1.0)  +  ' \n ' 

' +str (1.0)  +  ' \n ' 

'  +str (2.0)  +  ' \n ' 


m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(4)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(cl45)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c245)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  21)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +' 

output_l .write (strgg) 

m  =  m  +  1 


'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )  +  ','  + '  '+str(-1.0)  +  ' \n 

'+  str (m+1 )+','+ '  '+str(1.0)  +  '\n' 

'+  str (m+1 )+','+ '  '+str(1.0)  +  '\n' 


m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (c235) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 
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strgg  =  '  '  +  str(c245)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(5)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (cl35) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c245)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  21)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +'  '+  str(m+l)+', '+'  *+str(1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  ’+str(2.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

print  '  Lumped  -  Corner  Constraints  are  written' 

## - 

## - 

def  edge  constraints_lump ( ) : 

k, m  =  0,0 

while  k  in  range (len (e  1626)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (e  1626[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (e  1626 [k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  21)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_22)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  16  and  26' 
k,  m  =  0,0 

while  k  in  range (len (e  1525)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
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output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  1525[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 )  +  ' \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  1525 [k+1] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  21)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(1.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  15  and  25' 
k, m  =  0,0 

while  k  in  range (len (e  3545)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  3545 [k] ) +' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  3545 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  35  and  45' 
k, m  =  0,0 

while  k  in  range (len (e_3646) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  3646[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  3646 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
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m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  36  and  46' 
k, m  =  0,0 

while  k  in  range (len (e  1424)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  1424[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  1424 [k+1] ) +  ' ,  '  +'  '+  str (m+1 )  +  ','  + '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  21)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(1.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  14  and  24' 
k, m  =  0,0 

while  k  in  range (len (e_2324) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  2324[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  2324 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  23  and  24' 
k,  m  =  0,0 

while  k  in  range (len (e  1324)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(5)  +  '\n' 
output_l .write (strgg) 
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strgg  =  '  '  +  str (e  1324 [k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (e  1324 [k+1] ) + ' , '  +'  '+  str (m+1 '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  ;=?''  +  str  (c  21)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(1.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  22)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  4)+', '  +'  '+  str(m+l)+', '+'  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  13  and  24' 

## - 

## - 

def  center_constraints  lump() : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  3)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  11)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  12)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  21)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 
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print  '  Lumped  -  Face  Center  Constraints  are  written' 

## - 

def  face  constraints_lump ( ) : 
k, m  =  0,0 

while  k  in  range (len(fp  12)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  12[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  12[k+l])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  21)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  22)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Face  Constraints  for  faces  1  and  2  are  written' 

## - 

k, m  =  0,0 

while  k  in  range (len(fp  34)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  34[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  34[k+l])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  4)+', '  +'  '+  str(m+l)+', '+'  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Face  Constraints  for  faces  3  and  4  are  written' 

## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  12c  BDp) ) : 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 
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strgg  =  '  '  +  str(f  12c  BDp[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BDp [k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  21)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  22)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Face  Constraints  for  faces  3  and  4  are  written' 

## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  12c  BODp) ) : 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BODp[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BODp [ k+1 ])+', '  +'  '+  str (m+1 )+','+ ' 

' +str  (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  21)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  22)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Face  Constraints  for  faces  3  and  4  are  written' 

## - 

## - 

def  rigid_body_modes ( ) : 

strgg  ='**  Boundary  conditions  written\n' 
output_l .write (strgg) 
strgg= ' *Boundary\n ' 
output_l .write (strgg) 

if (lumped  inner  ==  1) : 

if ( ( load_case  ==  1)  or  (thermal  ==  1)): 

strgg  =  '  n  set  4'+', '+'  '+str(2)  +','+'  '+  str(3)+'\n' 

output_l .write (strgg) 

strgg  =  '  n  set  7'+', '+'  '+str(2)  +','+'  '+  str(2)+'\n' 

output_l .write (strgg) 

strgg  =  '  n  set  3'  +  ',  '  +  '  ’+str(l)  +  ','+'  '+  str(2)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  n  set  15'+','+'  '+str(l)  +  ','+  '  '+  str(l)+'\n' 
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output_l .write (strgg) 
elif ( load_case  ==  2) : 

strgg  =  '  n  set  12'+', '+'  ’+str(l)  +','+'  '+  str(2)+'\n' 

output_l .write (strgg) 

strgg  =  '  n  set  14'  +  ',  '  +  '  ’+str(l)  +  ','+'  '+  str(2)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  n  set  15'+','+'  ’+str(l)  +  ','+  '  '+  str(l)+'\n' 

output_l .write (strgg) 

strgg  =  '  n  set  15'+', '+'  '+str(3)  +','+'  '+  str(3)+'\n' 

output_l .write (strgg) 

else : 

strgg  =  '  n  set  5'+','+'  '+str(l)  +  ','+  '  '+  str(3)+'\n' 

output_l .write (strgg) 

strgg  =  '  n  set  2'+','+'  ’+str(l)  +  ','+  '  '+  str(l)+'\n' 

output_l .write (strgg) 

strgg  =  '  n  set  2'+', '+'  '+str(3)  +','+'  '+  str(3)+'\n' 

output_l .write (strgg) 
if (outerlayer  ==  1) : 

strgg  =  '  n  set  4'+', '+'  '+str(3)  +','+'  '+  str(3)+'\n' 

output_l .write (strgg) 
else : 

strgg  =  '  n  set  3'+','+'  ’+str(l)  +  ','+  '  '+  str(l)+'\n' 

output_l .write (strgg) 
print  'Rigid  body  modes  are  written' 

## - 

## - 

def  loads ( )  : 

if (mechanical  ==  1)  : 

strgg  =  ' *Boundary  \n' 
output_l .write (strgg) 

if ( ( load_case  ==  1)  and  ( lumped_inner  ==  0) ) : 

strgg  =  '  n  set  4'+','+'  '+  str(l)  +  ',,'+  '  '+  str (-le-6) + ' \n ' 

output_l .write (strgg) 

elif  (  ( load__case  ==  2)  and  ( lumped_inner  ==  0)): 

strgg  =  '  n  set  4'+','+'  '+  str(2)  +  ',,'+  '  '+  str (-le-6) +' \n ' 

output_l .write (strgg) 

elif ((load  case  ==  1)  and  (lumped  inner  ==  1)): 

##  This  part  is  completely  done  and  corrected. 

strgg  =  '  n  set  4'+','+'  '+  str(l)  +  ',,'+  '  '+  str (-le-6) +' \n ' 

output_l .write (strgg) 

elif ((load  case  ==  2)  and  (lumped  inner  ==  1)): 

##  This  part  is  completely  done  and  corrected. 

strgg  =  '  n  set  4'+','+'  '+  str(2)  +  ',,'+  '  '+  str (le-6) +' \n ' 

output_l .write (strgg) 

##  This  part  is  not  required  as  the  thermal  properties  do 
##  do  not  change, 
if (thermal  ==  1) : 

strgg  =  ' *Temperature  \n' 
output_l .write (strgg) 

strgg  =  '  n  set  9'  +  ','+'  '+  str (theta_range) + ' \n ' 

output_l .write (strgg) 

print  'Thermal  Loading  Only' 
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## - 

## - 

from  abaqus  import  * 

from  abaqusConstants  import  * 

from  section  import* 

import  math 

reading  inp  file() 


Code  for  file:  run_ninety_2.py 

#  this  program  writes  the  boundary  conditions  for  the 

#  * . inp  f ile . 

# 

# 

##  Note:  this  program  requires  the  information  from  run.py 
output  1  =  open (' runf ile . inp ' ,  'w') 

output  2  =  open (' runf ile  2. inp',  'w') 
output_3  =  open (' element_sets . inp '  ,  'w') 

## _ 

## _ 

## - 

def  reading  inp  file()  : 

global  num  node,  inte,  intee,  num  elem,  inte  el 

global  x,  y,  z,  num  n,  xa,  xb,  ya,  yb,  za,  zb,  xab,  yab,  zab 

global  nodel,  node2,  node3,  node4,  node5,  node6,  node7,  node8,  num_el 

global  tern,  tm,  nola,  crack  layer,  thickness,  crack  angle,  outer  layer 

global  num  ori,  bc3,  bc4,  num  n 

x,  y,  z,  num_n  =  [0],  [0],  [0],  [0] 

nodel,  node2,  node3,  node4=  [0],  [0],  [0],  [0] 

node5,  node6,  node7,  node8  =  [0],  [0],  [0],  [0] 

num_el  =  [0] 

inte,  intee  =  0,  0 

endfile,  node_flag,  elem_flag  =0,  0,  0  #  logical  operators 
num  node,  num  elem  =  0,  0  #  initializing  nodes  and  elements 
num  ori  =  0 

nola  =  nol  #  number  of  layers 
crack  layer  =  loc  ply  1 
thickness  =  ped 

crack_angle  =  layup [loc_ply_l-l] 

outer_layer  =  0  ##  the  cracked  layer  is  not  an  outer  layer  if  the  value 
is  one. 

input  =  open (' Lami^Job . inp ' ,  'r') 

strg  =  input . readlines  ( ) 

while  inte  in  range ( len ( strg) ) : 
strg_2  =  strg [inte] 

if (strg  2 [ 1 : 8 ] == ' Element ' ) : 

##  output_l . write ( strg_2 ) 

print  'Reading  Elements' 
int  el  =  inte 
while (elem  flag  !=  1) : 
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## 

## 


int  el  =  int  el  +  1 
strg_3  =  strg[int_el] 
i f ( s  t  r g_3 [ 0 ]=='*' )  : 
elem  flag  =  1 

strg  temp  =  '**  End  of  Elements  in  the  file\n' 
output_l .write (strg_temp) 

else : 

num  elem  =  num  elem  +  1 

elem  reading (na=num  elem,  stt=  strg  3) 

##  output_l . write ( strg_3 ) 

num  el  =  num  el  +  [num  elem] 
nodel  =  nodel  +  [nodi] 
node2  =  node2  +  [nod2] 
node3  =  node3  +  [nod3] 
node4  =  node4  +  [nod4] 
node5  =  node5  +  [nod5] 
node6  =  node6  +  [nod6] 
node7  =  node7  +  [nod7] 
node8  =  node8  +  [nod8] 
inte  =  int  el 
nn  =  num  elem 

del  num  el [num  el. index (0)] 
del  nodel [nodel . index ( 0 ) ] 
del  node2 [node2 . index ( 0 )  ] 
del  node3 [node3 . index ( 0 )  ] 
del  node4 [node4 . index ( 0 ) ] 
del  node5 [node5 . index ( 0 )  ] 
del  node6 [node6 . index ( 0 ) ] 
del  node7 [node7 . index ( 0 ) ] 
del  node8 [node8 . index ( 0 )  ] 

if (gap  elements  ==  1)  : 

gap_element ( ) 

nodes  elements ()  ##  writing  the  nodes  and  elements, 
if (gap  elements  ==  1)  : 

gap  elements  written () 
f ace_pairs ( ) 

elif (strg_2 [ 1 : 5]  ==  'Node'): 
output_l . write ( strg_2 ) 
print  'Reading  Nodes' 
intee  =  inte 
while  (node  flag  !=  1) : 
intee  =  intee  +  1 
strg_2  =  strg [intee] 
if (strg_2[0] =='*') : 
node_flag  =  1 

strg  temp  =  '**  End  of  Nodes\n' 
output_l .write (strg_temp) 

else : 

num  node  =  num  node  +  1 
node_reading (n=num  node,  st=strg  2) 
num  n  =  num  n  +  [num  node] 
x  =  x  +  [xl] 

y  =  y  +  [yi] 

z  =  z  +  [zl] 


189 


## 

\ '  +  ' 

## 


min  ( z ) 


elif (strg_2 [0:2] =='**') : 

output_l .write (strg [inte] ) 

elif(strg  2 [ 0 : 9] == ' *Boundary ' ) : 
rigid_body_modes ( ) 
inte  =  inte  +  1 

elif ( strg_2 [0:8]==' * Re start ' ) : 

print  'Eliminating  Rigid  Body  Modes  and  writing  Loads' 
output_l . write ( strg_2 ) 

elif (strg_2 [ 0 : 6] == ' *Cload ' ) : 
print  'Writing  Loads' 
loads ( ) 

inte  =  inte  +  1 

elif (strg  2 [0 : 13] == ' *End  Instance'): 

print  'Writing  Constraints' 

if (lumped  inner  ==  1) : 

corner  constraints  lump() 
edge  constraints  lump() 
face  constraints  lump() 
center  constraints  lump() 

elif (outerlayer  ==  1) : 

corner_constraints_outer ( ) 
edge_constraints_outer ( ) 
f ace_constraints_outer ( ) 
center  constraints  outer () 


nn  =  num  node 

strrg  =  '  '+str(num  n[nn] )+','+'  '+  str(x[ 

'  +  str (y [nn] )  +  ','+'  '  +  str(z[nn] )  +  '\n' 

output_l .write (strrg) 
inte  =  intee 
del  x [x . index ( 0 ) ] 
del  y [y. index (0) ] 
del  z [ z . index ( 0 ) ] 
del  num  n[num  n. index (0)] 

xa,  xb,  ya,  yb,  za,  zb  =  max(x),  min(x),  max(y),  min(y), 

xab  =  (xa  +  xb)/2.0 
yab  =  (ya  +  yb)/2.0 
zab  =  ( za  +  zb) /2 . 0 
cal_shf ( ) 

node  swap(nt  =  num  n,  xt  =  x,  yt  =  y,  zt  =  z) 


else : 

corner_constraints () 
edge_constraints () 
f ace_constraints  () 
center_constraints () 

if (outerlayer  ==  1)  and  (crack^surfaces  ==  1) : 

print  '  SURFACE  CONTACT  Surfaces  ARE  WRITTEN' 


nn]  )  + 


max  (  z ) , 
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contact_surf aces () 
output_l . write ( strg_2 ) 

##  this  is  to  include  the  surface  contact. 
##  elif (strg_2 [0 : 9] == ' *End  Part'): 


elif (strg_2 [0 : 6]  ==  '*Elset'): 
output_l . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
intel  =  inte 
flag  =  0 

while (flag  ==  0)  : 

intel  =  intel  +  1 
strg_5  =  strg [intel] 
if (strg_5 [0]  !=  ' *  '  )  : 

output_l .write (strg_5) 
output_3 . write ( strg_5 ) 
else : 

flag  =  1 

inte  =  intel  -  1 

elif ( strg_2 [ 0 : 14 ] == ' *Solid  Section') : 
output_l . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
intel  =  inte 
flag  =  0 

while (flag  ==  0)  : 

intel  =  intel  +  1 
strg_5  =  strg [intel] 
if (strg_5 [0]  !=  ' *  '  )  : 

output_l .write (strg_5) 
output_3 . write ( strg_5 ) 
else : 

flag  =  1 

inte  =  intel  -  1 

elif (strg  2 [ 1 : 7 ] == ' Orient ' ) : 
output_l . write ( strg_2 ) 
output_3 . write ( strg_2 ) 
intel  =  inte 
flag  =  0 

num  ori  =  num^ori  +  1 
while (flag  ==  0)  : 

intel  =  intel  +  1 
strg_5  =  strg[intel] 
if (strg_5 [0]  !=  ' * ' )  : 

output_l .write (strg_5) 
output_3 . write ( strg_5 ) 
else : 

flag  =  1 

inte  =  intel  -  1 

elif (strg  2 [1:13] == ' End  Assembly ' ) : 

strgg  =  '*Nset,  nset=n  set  1,  instance=sublami  \n' 
output_l .write (strgg) 
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strgg  =  str (c_l ) + ' \n ' 
output_l .write (str (strgg) ) 

strgg  =  ' *Nset,  nset=n  set  2,  instance=sublami  \n ' 
output_l .write (strgg) 
strgg  =  str (c_2 ) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  3,  instance=sublami  \n') 
strgg  =  str (c_5) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  4,  instance=sublami  \n') 
strgg  =  str (c_4 ) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  5,  instance=sublami  \n') 
strgg  =  str (bodyc) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  6,  instance=sublami  \n') 

strgg  =  str ( c _ 6 ) + ' \n ' 

output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  7,  instance=sublami  \n') 
strgg  =  str (c_6_x) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  8,  instance=sublami  \n') 
strgg  =  str (c_6_y) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  9,  instance=sublami ,  internal, 
generate  \n ' ) 

strgg  =  str(l)+','+'  '+  strfnum  node)+','+'  ' +str ( 1 ) + ' \n ' 

output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  10,  instance=sublami  \n') 
strgg  =  str(c  14m)+'\n' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  11,  instance=sublami  \n') 
strgg  =  str (c_23m) + ' \n ' 
output_l .write (strgg) 

if (lumped  inner  ==  1) : 

output  1 .write (' *Nset,  nset=n  set  12,  instance=sublami  \n') 
strgg  =  str (c_2 1 ) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  14,  instance=sublami  \n') 
strgg  =  str (c_22 ) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  15,  instance=sublami  \n') 
strgg  =  str (bc2 ) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  16,  instance=sublami  \n') 
strgg  =  str (bc3 ) + ' \n ' 
output_l .write (strgg) 

output  1 .write (' *Nset,  nset=n  set  17,  instance=sublami  \n') 
strgg  =  str (bc4 ) + ' \n ' 
output_l .write (strgg) 

if (outerlayer  ==  1) : 

output  1 .write (' *Nset,  nset=n  set  15,  instance=sublami  \n') 
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strgg  =  str (bc2 ) + ' \n ' 
output_l .write (strgg) 

output_l .write ( ' *Nset,  nset=n_set_61 , 
strgg  =  str (c_61 ) + ' \n ' 
output_l .write (strgg) 

output_l .write ( ' *Nset,  nset=n_set_62 , 
strgg  =  str (c_62 ) + ' \n ' 
output_l .write (strgg) 


instance=sublami  \n ' ) 


instance=sublami  \n') 


output_l . write ( strg_2 ) 

if (outerlayer  ==  1)  and  (crack^surfaces  ==  1) : 

print  '  SURFACE  CONTACT  CONSTRAINTS  ARE  WRITTEN' 
crack  contact () 


print  'Nsets  for  rigid  body  modes  and  loads  -  created' 

elif ( strg_2 [ 1 : 14 ]==' Output ,  field') : 

if (gap  elements  ==  1)  or  (crack  surfaces  ==  1) : 
strgg  =  '*PRINT,  CONTACT  =  YES\n ' 
output_l .write (strgg) 
output_l . write ( strg_2 ) 

output  1 . write (' *Element  output, position=centroid  \n') 
strgg  =  'Evol,  S  \n' 
output_l .write (strgg) 


else : 

output_l .write (strg[inte] ) 
inte  =  inte  +  1 
else : 

print  'End  of  File' 

output_l . close  ( ) 
output_2 . close  ( ) 
output_3 . close ( ) 

## _ 

## - 

def  cal_shf ( ) : 
global  shf 

temp__x,  temp_y,  temp_z  =  [0],  [0],  [0] 

for  j  in  range ( len (x) ) : 

tt  =  abs (x [ j ] ) /1 0000 . 0 
tt  =  str(tt) 

temp  x  =  temp  x  +  [int (len (tt) ) ] 

tt  =  abs (y [ j ] ) /10000 . 0 
tt  =  str(tt) 

temp_y  =  temp__y  +  [int  (len  (tt)  )  ] 

tt  =  abs (z [ j ] ) /10000 . 0 
tt  =  str(tt) 

temp_z  =  temp_z  +  [int (len (tt) ) ] 
del  temp  x[temp  x. index (0) ] 
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del  temp_y [temp_y. index (0) ] 
del  temp  z[temp  z. index (0) ] 

tx  i,  ty  i  =  temp  x . index (max (temp  x) ) ,  temp  y. index (max (temp  y) ) 
tz  i  =  temp  z . index (max (temp  z) ) 

tx  max  =  x[tx  i] 
ty_max  =  y[ty_i] 
tz  max  =  z [tz  i ] 
tt  =  [tx  max,  ty  max,  tz  max] 

ttt  =  [len (str (tx_max) ) ,  len (str (ty_max) ) ,  len (str (tz_max) ) ] 

tttt  =  str (tt [ttt . index (max (ttt) )]  ) 

tttt  =  tttt . replace ('.' ,  '  ') 

tttt  =  tttt.splitO 

t5  =  tttt[l] 

t5  =  len  ( 1 5 ) 

sh  =  ' IE- ' +str (t5-3) 

shf  =  float ( sh) 


## - 

def  node_reading (n,  st)  : 

global  num  nl,  xl,  yl,  zl 
num  nl  =  n 

xl ,  yl ,  zl  =  0 . ,  0 . ,  0 . 

n_ck  =  0 

strg_n  =  st . replace (',' ,  '  ') 

strg_n  =  strg_n . split ( ) 

n_k  =  int ( strg_n [ 0 ] ) 

xl  =  f loat ( strg_n [ 1 ] ) 

yl  =  float (strg_n [2 ] ) 

zl  =  f loat ( strg_n [ 3 ] ) 

# - 

def  elem_reading (na,  stt)  : 

global  nodi,  nod2,  nod3,  nod4,  nod5,  nod6,  nod7,  nod8 

nodi,  nod2,  nod3,  nod4,  nod5,  nod6,  nod7,  nod8  =  0,  0,  0,  0,  0,  0,  0,  0 

strg_n  =  stt . replace  (','  ,  '  ') 

strg_n  =  strg_n . split ( ) 

n_k  =  int ( strg_n [ 0 ] ) 

nodi  =  int (strg_n [ 1 ] ) 

nod2  =  int (strg_n [2] ) 

nod3  =  int (strg_n [3 ] ) 

nod4  =  int (strg_n [4 ] ) 

nod5  =  int (strg_n [5] ) 

nod6  =  int (strg_n [ 6] ) 

nod7  =  int (strg_n [7 ] ) 

nod8  =  int (strg_n [ 8 ] ) 

# - 

def  node_swap (nt,  xt,  yt,  zt) : 

##  this  subroutine  detects  the  center  nodes,  corner  nodes,  edge  nodes  and 
face  nodes. 

global  tern,  tm 

global  c_l,  c_2,  c_3,  c_4,  c_5,  c_6,  c_l_l,  c_l_2,  bodyc,  bc2,  bc3,  bc4 
global  cl35,  cl36,  cl46,  cl45,  c235,  c236,  c246,  c245 
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global  cl46  2,  c236  2,  cl45  2,  c235  2 
global  ct_35,  ct_36,  ct_45,  ct_46 
global  e_35,  e_36,  e_45,  e_46 

global  e_15,  e_16,  e_2  5,  e_26 

global  e_13,  e_14,  e_2  3,  e_24 
global  f_l,  f_2 ,  f_3,  f_4,  shf 
global  c  6  x,  c  6  y,  c  14m,  c  23m 

global  c_ll,  c_12,  c_21,  c_22,  c_21,  c_61,  c_62,  c_51,  c_52 

global  ck  z  1,  ck  z  2,  ck  z  3,  ck  z  4 

global  e  15c  11,  e  15c  22,  e  16c  11,  e  16c  22 

global  e  25c  11,  e  25c  22,  e  26c  11,  e  26c  22 

ck  z  1  =  thick[loc  ply  1-1] 
ck  z  2  =  thick[loc  ply  1] 
locaa  =  nol  -  loc  ply  1+1 
ck  z  3  =  thick[locaa  -  1] 
ck  z  4  =  thick[locaa] 

j  =  0 

c_l,  c_2,  c_3,  c_4,  c_5,  c_6  =  0,0, 0,0, 0,0 

c_ll,  c_12,  c_21,  c_22  =0,  0,  0,  0 

c_l_l,  c_l_2  =  0,0 

cl35,  cl36,  cl46,  cl45  =  0,0, 0,0 

c235,  c236,  c246,  c245  =  0,0, 0,0 

c_14m,  c  23m  =0,0 

cl46_2,  cl45_2,  c235_2,  c236_2  =  0,0, 0,0 

e_15c_ll,  e_15c_22,  e_25c_ll,  e_25c_22  =0,  0,  0,  0 

e_16c_ll,  e_16c_22,  e_26c_ll,  e_26c_22  =0,  0,  0,  0 

trip_cl46,  trip_c236,  trip_cl45,  trip_c235  =  0,  0,  0,  0 

trip_cl511,  trip_cl611  =  0,  0 

trip_c2511,  trip_c2611  =  0,  0 

trip_c61  =  0 

trip_c51  =  0 

while  j  in  range (len (nt) ) : 

tx,  ty,  tz  =  x [ j ] ,  y [ j ] ,  z [ j ] 

if ( (abs (tx-xab) <=  shf) and (abs (ty-yb) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_l  =  nt [ j ] 

print  ' Face  center  -  1 ' ,  cl 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-ya) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_2  =  nt  [  j ] 

print  ' Face  center  -  2 ' ,  c  2 

elif ( (abs (tx-xa) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_3  =  nt[j] 

print  ' Face  center  -  3 ' ,  c_3 

elif ( (abs (tx-xb) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_4  =  nt[j] 

print  ' Face  center  -  4 ' ,  c_4 

elif ( (abs (tx-xab) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz-zb) <=shf )  and 
(outerlayer  ==  0) ) : 

c_5  =  nt[j] 

print  ' Face  center  -  5 ' ,  c_5 

elif ( (abs (tx-xab) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz-za) <=shf )  and 
(outerlayer  ==  0) ) : 

c_6  =  nt [ j ] 
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print  ' Face  center  -  6  '  ,  c_6 

el if ( (abs (xab-tx) <=shf ) and (abs (ty-ya) <=shf ) and (abs (tz-ck_z_l ) <=shf ) ) 
c_21  =  nt[j] 

print  'Face  center  -  2  1',  c  21 

elif ( (abs (xa-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (zb-tz) <=shf ) ) : 
cl35  =  nt [ j  ] 

print  'Corner  135',  cl35 

elif ( (abs (xa-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (za-tz) <=shf ) ) : 
cl36  =  nt [ j  ] 

print  'Corner  136',  cl36 

elif ( (abs (xb-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (za-tz) <=shf ) and 
(trip_cl46  ==  0) ) : 

cl46  =  nt [ j ] 
trip  cl46  =  1 

print  'Corner  146',  cl46 

elif ( (abs (xb-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (za-tz) <=shf )  and 
(trip_cl46  ==  1) ) : 

cl46_2  =  nt[j] 

print  'Corner  146  -  2  ',  cl46  2 

elif ( (abs (xb-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (zb-tz) <=shf )  and 
(trip_cl45  ==  0) ) : 

cl45  =  nt  [  j ] 
trip  cl45  =  1 

print  'Corner  145',  cl45 

elif ( (abs (xb-tx) <=shf ) and (abs (yb-ty) <=shf ) and (abs (zb-tz) <=shf )  and 
(trip_cl45  ==  1) ) : 

cl45_2  =  nt  [  j ] 

print  'Corner  145  -  2',  cl45  2 

elif ( (abs (xa-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (zb-tz) <=shf )  and 
(trip_c235  ==  0) ) : 

c235  =  nt [ j ] 
trip_c235  =  1 

print  'Corner  235',  c235 

elif ( (abs (xa-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (zb-tz) <=shf )  and 
(trip_c235  ==  1) ) : 

c235_2  =  nt [ j ] 

print  'Corner  235  -  2',  c235  2 

elif ( (abs (xa-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (za-tz) <=shf )  and 
(trip_c236  ==  0) ) : 

c236  =  nt [ j ] 
trip_c236  =  1 

print  'Corner  236',  c236 

elif ( (abs (xa-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (za-tz) <=shf )  and 
(trip_c236  ==  1) ) : 

c236_2  =  nt [ j ] 

print  'Corner  236  -  2',  c236  2 

elif ( (abs (xb-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (za-tz) <=shf ) ) : 
c246  =  nt [ j ] 

print  'Corner  246',  c246 

elif ( (abs (xb-tx) <=shf ) and (abs (ya-ty) <=shf ) and (abs (zb-tz) <=shf ) ) : 
c245  =  nt [ j  ] 

print  'Corner  245',  c245 

##  elif ( (abs (xab-tx) <=shf ) and (abs (ty-yab) <=shf ) and (abs (tz-zb) <=shf ) 
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## 

## 

## 


c_l_l  =  nt[j] 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-yab) <=shf ) and (abs (tz-za) <=shf ) ) : 
c_l_2  =  nt[j] 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-yab) <=shf ) and (abs (tz-zab) <=shf ) ) : 
bodyc  =  nt [ j ] 

elif ( (abs (tx-xb) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz-za) <=shf ) ) : 
c_6_x  =  nt[j] 

elif ( (abs (xab-tx) <=shf ) and (abs (ty-ya) <=shf ) and (abs (tz-za) <=shf ) ) : 
c_6_y  =  nt [ j ] 

elif ( (abs (xb-tx) <=shf ) and (abs (ty-yb) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_14m  =  nt [ j ] 

elif ( (abs (xa-tx) <=shf ) and (abs (ty-ya) <=shf ) and (abs (tz-zab) <=shf ) ) : 
c_23m  =  nt [ j ] 

##  the  lumped  zero  layers  include  the  center  node.  Two  nodes  of  equal 
distance  from  the 

##  center  node  need  to  be  taken  for  the  two  center  nodes  on  the  two  opposite 
faces . 

##  c_ll,  c_12 ,  c_2 1 ,  c_22. 

if (lumped  inner  ==  1) : 

if ( (abs (xab-tx) <=shf ) and (abs (ty-yab) <=shf ) and (abs (tz- 
ck  z  4 ) <=shf ) ) : 

bc2  =  nt[j] 

print  'Body  center  -  2',  bc2 

elif ( (abs (tx-xab) <=shf ) and (abs (yb-ty) <=shf ) and (abs (tz- 
ck  z  1 ) <=shf ) ) : 

c_l 1  =  nt [ j ] 

print  'Face  center  -  31  ',  c  11 
elif ( (abs (tx-xab) <=shf ) and (abs (yb-ty) <=shf ) and (abs (tz- 
ck  z  4 ) <=shf ) ) : 

c_12  =  nt [ j ] 

print  'Face  center  -  32  ',  c  12 

elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  1 ) <=shf ) ) : 

c_2 1  =  nt  [  j ] 

print  'Face  center  -  41  ',  c_21 
elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  4 ) <=shf ) ) : 

c_22  =  nt[j] 

print  'Face  center  -  42  ',  c_22 

elif ( (abs (tx-xab) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz- 
ck  z  1 ) <=shf ) ) : 

bc3  =  nt[j] 

print  'New  BC  -  ',  bc3 

elif ( (abs (tx-xb) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz-zab) <=shf ) ) : 
bc4  =  nt[j] 

print  'New  BC  -  ',  bc4 
if (outerlayer  ==  1) : 

if ( (abs (xab-tx) <=shf ) and (abs (ty-yab) <=shf ) and (abs (tz- 
ck_z_3) <=shf ) ) : 

bc2  =  nt[j] 
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print  'Body  center  -  2',  bc2 

elif ( (abs (tx-xab) <=shf ) and (abs (yb-ty) <=shf )  and  (abs (tz- 
ck  z  l)<=shf)  and  (trip  cl511  ==  0) ) : 

e_15c_ll  =  nt[j] 
trip  cl511  =  1 

elif ( (abs (tx-xab) <=shf) and (abs (yb-ty) <=shf)  and  (abs (tz- 
ck  z  l)<=shf)  and  (trip  cl511  ==  1) ) : 

e_15c_22  =  nt[j] 

elif ( (abs (tx-xab) <=shf ) and (abs (yb-ty) <=shf ) and (abs (tz- 
ck  z  4)<=shf)  and  (trip  cl611  ==  0) ) : 

e_16c_ll  =  nt[j] 
trip  cl611  =  1 

elif ( (abs (tx-xab) <=shf ) and (abs (yb-ty) <=shf ) and (abs (tz- 
ck  z  4)<=shf)  and  (trip  cl611  ==  1) ) : 

e_16c_22  =  nt[j] 

elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  l)<=shf)  and  (trip  c2511  ==  0)  )  : 

e_25c_ll  =  nt [ j ] 
trip  c2511  =  1 

elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  l)<=shf)  and  (trip  c2511  ==  1) ) : 

e_25c_22  =  nt[j] 

elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  4)<=shf)  and  (trip  c2611  ==  0) ) : 

e_26c_ll  =  nt[j] 
trip  c2611  =  1 

elif ( (abs (tx-xab) <=shf ) and (abs (ya-ty) <=shf ) and (abs (tz- 
ck  z  4)<=shf)  and  (trip  c2611  ==  1) ) : 

e_26c_22  =  nt[j] 

##  the  faces  5  and  6  have  cracks  and  so  have  two  nodes. 

elif ( (abs (tx-xb/2 . 0) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz 

zb) <=shf ) ) : 

c_51  =  nt[j] 
trip_c51  =  1 

print  'Face  center  -  5  -  1  -',  c  51 
elif ( (abs (tx-xa/2 . 0) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz 

zb) <=shf ) ) : 

c_52  =  nt  [  j ] 

print  'Face  center  -  5  -  2  -',  c  52 
elif ( (abs (tx-xb/2 . 0) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz 

za) <=shf ) ) : 

c_61  =  nt[j] 
trip_c61  =  1 

print  'Face  center  -  6  -  1  -',  c  61 
elif ( (abs (tx-xa/2 . 0) <=shf ) and (abs (yab-ty) <=shf ) and (abs (tz 

za) <=shf ) ) : 

c_62  =  nt [ j ] 

print  ' Face  center  -  6  -  2  - '  ,  c  62 
j  =  j  +  1 

if ( (outerlayer  ==  0)  and  ( lumped_inner  ==  0) ) : 

tm  =  [cl35,  cl36,  cl46,  cl45,  c235,  c236,  c246,  c245] 
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tem 


=  [c_l,  c_2,  c_3,  c_4,  c_5,  c_6] 

elif ( (outerlayer  ==  1)  and  ( lumped_inner  ==  0)): 

tm  =  [cl35,  cl36,  cl46,  cl45,  c235,  c236,  c246,  c245, 

e  15c  11,  e  25c_ll,  e  16c  11,  e  26c  11,  e  25c  22,  e  26c  22, 
e  15c  22,  e  16c_22] 

tem  =  [c  1,  c  2,  c_3,  c  4,  c  51,  c  52,  c  61,  c  62] 
elif (lumped  inner  ==  1)  : 

tm  =  [cl35,  cl36,  cl46,  cl45,  c235,  c236,  c246,  c245, 
c  11,  c  12,  c  21,  c_2 2 ] 
tem  =  [c_3,  c_4,  c_5,  c_6] 

if ( 0  in  tm) : 

print  'Zero  in  tm' 
else : 

print  ' TM  is  complete  ' 

##  print  tm 

print  'Center  nodes  and  Corner  nodes  are  identified' 

## _ 

## - 

##  subroutine  to  detect  the  edge  node  35  36  45  46 


ct  35 , 

ct  36,  ct  45,  ct 

46  =  0,  0, 

0, 

0 

ct  15, 

ct  16,  ct  25,  ct 

26  =  0,  0, 

0, 

0 

ct  13, 

ct  14,  ct  23,  ct 

24  =  0,  0, 

0, 

0 

j  =  0 

front. 

fronta,  frontb,  frontc  =  0, 

0, 

0, 

0 

frontd. 

fronte,  frontf. 

frontg  =  0, 

0, 

0, 

0 

fronth. 

fronti,  frontj. 

frontk  =  0, 

0, 

0, 

0 

e  35 ,  e 

36,  e  45,  e  46  = 

:  [0],  [0], 

[0] 

,  [ 

0] 

e  15,  e 

16,  e  25,  e  26  = 

:  [0],  [0], 

[0] 

,  [ 

0] 

e  13,  e 

14,  e  23,  e  24  = 

:  [0],  [0], 

[0] 

,  [ 

0] 

while  j 

in  range (len (nt) 

)  : 

tx,  ty,  tz  =  x [ j ] ,  y [ j ] ,  z  [  j ] 
check  =  nt[j] 

front,  fronta,  frontb,  frontc  =  0,  0,  0,  0 

frontd,  fronte,  frontf,  frontg  =  0,  0,  0,  0 

fronth,  fronti,  front j ,  frontk  =  0,  0,  0,  0 

if  check  in  tem: 

front,  fronta,  frontb,  frontc  =  1,  1,  1,  1 
frontd,  fronte,  frontf,  frontg  =  1,  1,  1,  1 

fronth,  fronti,  frontj,  frontk  =  1,  1,  1,  1 

if  check  in  tm: 

front,  fronta,  frontb,  frontc  =  1,  1,  1,  1 
frontd,  fronte,  frontf,  frontg  =  1,  1,  1,  1 

fronth,  fronti,  frontj,  frontk  =  1,  1,  1,  1 

##  EDGE  35 

if ( (abs (tx-xa) <=shf ) and (abs (tz-zb) <=shf ) ) : 
if (front ! =1 ) : 

ct  35  =  ct  35  +  1 
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e_35  =  e_35  +  [check] 

##  EDGE  36 

el if ( (abs (tx-xa) <=shf ) and (abs(tz-za)<=shf) ) : 
if ( f ronta ! =1 ) : 

ct_36  =  ct_36  +  1 
e_36  =  e_36  +  [check] 

##  EDGE  45 

elif (  (abs (tx-xb) <=shf ) and (abs (tz-zb) <=shf )  ) 

if ( f rontb ! =1 ) : 

ct_45  =  ct_45  +  1 
e  45  =  e  45  +  [check] 

##  EDGE  46 

elif ( (abs (tx-xb) <=shf) and (abs(tz-za)<=shf) ) : 
if ( f rontc ! =1 ) : 

ct  46  =  ct  46  +  1 
e  46  =  e  46  +  [check] 

##  EDGE  15 

elif ( (abs (ty-yb) <=shf ) and (abs (tz-zb) <=shf ) )  : 
if ( f rontd ! =1 ) : 

ct_15  =  ct_15  +  1 
e_15  =  e_15  +  [check] 

##  EDGE  25 

elif ( (abs (ty-ya) <=shf ) and (abs (tz-zb) <=shf) ) : 
if ( f ronte ! =1 ) : 
ct_25  =  ct_25  +  1 
e  25  =  e  25  +  [check] 

##  EDGE  16 

elif ( (abs (ty-yb) <=shf) and (abs(tz-za)<=shf) ) : 
if ( f rontf ! =1 ) : 
ct_16  =  ct_16  +  1 
e  16  =  e  16  +  [check] 

##  EDGE  26 

elif ( (abs (ty-ya) <=shf) and (abs(tz-za)<=shf) ) : 
if ( f rontg ! =1 ) : 

ct_26  =  ct_26  +  1 
e  26  =  e  26  +  [check] 

##  EDGE  13 

elif ( (abs (tx-xa) <=shf ) and (abs (ty-yb) <=shf ) )  : 
if ( f ronth ! =1 ) : 

ct_13  =  ct_13  +  1 
e_13  =  e_13  +  [check] 

##  EDGE  14 

elif ( (abs (tx-xb) <=shf ) and (abs (ty-yb) <=shf ) ) : 
if ( f ronti ! =1 ) : 

ct  14  =  ct  14  +  1 
e  14  =  e  14  +  [check] 

##  EDGE  23 


200 


elif ( (abs (tx-xa) <=shf ) and (abs (ty-ya) <=shf ) ) : 
if ( front j ! =1 ) : 

ct_23  =  ct_23  +  1 
e  23  =  e  23  +  [check] 


##  EDGE  24 

elif ( (abs (tx-xb) <=shf ) and (abs (ty-ya) <=shf ) ) : 
if ( f rontk ! =1 ) : 

ct  24  =  ct  24  +  1 
e  24  =  e  24  +  [check] 


j  =  j  +  1 


del 

e 

35 

[e_ 

35 . index ( 0 ) 

] 

del 

e 

'36 

[e_ 

36 . index (0) 

] 

del 

e 

'4  5 

[e_ 

45 . index (0) 

] 

del 

e 

'4  6 

[e_ 

4  6 . index ( 0 ) 

] 

del 

e 

"15 

[e_ 

15 . index (0) 

] 

del 

e 

16 

[e_ 

1 6 . index ( 0 ) 

] 

del 

e 

'2  5 

[e_ 

25 . index (0) 

] 

del 

e 

'2  6 

[e_ 

2  6 . index ( 0 ) 

] 

del 

e 

'l3 

[e_ 

13 . index (0) 

] 

del 

e 

'2  3 

[e_ 

23 . index (0) 

] 

del 

e 

"l4 

[e_ 

14 . index (0) 

] 

del 

e 

'2  4 

[e 

24 . index (0) 

] 

print 

1  Edge 

nodes  are 

identified 

## - 

##  nodes  on  the  edges  are  identified.  These  nodes  have  to  be  paired  for 
writing 

##  the  constraint  equations.  the  node  pairs  are  based  on  the  boundary 
conditions . 

global  e_1626,  e_1526,  e_2526,  e_3646,  e_3546,  e_4546 

global  ct_e_1626,  ct_e_1526,  ct_e_3546,  ct_e_3646,  ct_e_4546,  ct_e_2526 
k  =  0 
m  =  0 


e  1626,  e 

1526, 

-  e 

3546, 

e  3646, 

e_4546,  e_2526  = 

[0]  , 

[0]  , 

[0], 

[0]  , 

[0]  , 

[0] 

ct  e  1626, 

ct  e  1526,  ct 

_e_364  6 

,  ct  e  3546,  ct  e 

4546 

,  ct 

e  2526 

=  o. 

0, 

o 

o 

o 

o 

if (ct_16  ! 

=  ct 

26) 

: 

pr 

int  1 

1  The 

edges 

nodes 

are  not  compatible 

16 

26  -- 

-  check 

the 

code 

f 

while  k  in  range (len (e  16)): 
checkl  =  e  1 6 [ k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  26)): 
check2  =  e  2 6 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (txl-tx2) <=shf ) : 

ct_e_1626  =  ct_e_1626  +  2 
e  1626  =  e  1626  +  [checkl] 
e  1626  =  e  1626  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_l 62 6  [e_l 62 6 . index ( 0 )  ] 

if ( (ct_e_1626/ct_16  !=  2)  and  (ct_e_1626/ct_26  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  16  and  26' 
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else : 

print  '  Edge  pairs  16  and  26  are  identified' 

## - 

k,  m  =  0,  0 
if (ct_15  !=  ct_26) : 

print  'The  edges  nodes  are  not  compatible  15  25  --  check  the 

code ' 

while  k  in  range (len (e  15)): 
checkl  =  e  15 [k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e_26) ) : 
check2  =  e  2 6 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (txl-tx2) <=shf )  : 

ct_e_1526  =  ct_e_1526  +  2 
e_1526  =  e_1526  +  [checkl] 
e  1526  =  e  1526  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_1526  [e_1526 . index (0)  ] 

if ( (ct_e_1526/ct_15  !=  2)  and  (ct_e_1526/ct_26  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  15  and  26' 
else : 

print  '  Edge  pairs  15  and  26  are  identified' 

## - 

k,  m  =  0,  0 
if (ct_25  !=  ct_26) : 

print  'The  edges  nodes  are  not  compatible  15  25  --  check  the 

code ' 

while  k  in  range (len (e  25)): 
checkl  =  e  25 [k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  26)): 
check2  =  e  2 6 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (txl-tx2) <=shf )  : 

ct  e  2526  =  ct_e  2526  +  2 
e_2526  =  e  2526  +  [checkl] 
e_2526  =  e  2526  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e  2526 [e_2526 . index (0) ] 

if ( (ct_e_2526/ct_25  !=  2)  and  (ct_e_2526/ct_26  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  25  and  26' 
else : 

print  '  Edge  pairs  25  and  26  are  identified' 


k,  m  =  0,  0 
if (ct_35  !=  ct_46) : 

print  'The  edges  nodes  are  not  compatible  35  45  --  check  the 

code ' 

while  k  in  range ( len (e_35 )) : 
checkl  =  e_35[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 


202 


while  m  in  range (len (e  46)): 
check2  =  e  4 6 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tyl-ty2) <=shf ) : 

ct_e_3546  =  ct_e_3546  +  2 
e_354  6  =  e_354  6  +  [checkl] 
e_3546  =  e_3546  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_354 6 [e_354 6 . index ( 0 ) ] 

if ( (ct_e_3546/ct_35  !=  2)  and  (ct_e_3546/ct_46  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  35  and  46' 
else : 

print  '  Edge  pairs  35  and  46  are  identified' 


k,  m  =  0,  0 
if (ct_36  !=  ct_46) : 

print  'The  edges  nodes  are  not  compatible  36  46  --  check  the 

code ' 

while  k  in  range (len (e_36) ) : 
checkl  =  e_36[k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  46)): 
check2  =  e  4 6 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tyl-ty2) <=shf ) : 

ct_e_3646  =  ct_e_3646  +  2 
e_3646  =  e_3646  +  [checkl] 
e_3646  =  e_3646  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_3646  [e_3646 . index (0)  ] 

if ( (ct_e_3646/ct_36  !=  2)  and  (ct_e_3646/ct_46  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  36  and  46' 
else : 

print  '  Edge  pairs  36  and  46  are  identified' 


k,  m  =  0,  0 
if (ct_45  !=  ct_46) : 

print  'The  edges  nodes  are  not  compatible  45  46  --  check  the 

code ' 

while  k  in  range (len (e  45)): 
checkl  =  e  45 [k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  46)): 
check2  =  e  4 6 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tyl-ty2) <=shf )  : 

ct  e  4546  =  ct  e  4546  +  2 
e  4546  =  e  4546  +  [checkl] 
e  4546  =  e  4546  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e  4546[e  454 6 . index ( 0 ) ] 

if ( (ct  e  4546/ct  45  !=  2)  and  (ct  e  4546/ct  46  !=  2)): 
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print  '  Error  in  identifying  edge  pairs  -  Edges  45  and  46' 
else : 

print  '  Edge  pairs  45  and  46  are  identified' 

## - 

## - 

global  ct  e  1424,  ct  e  2324,  ct  e  1324 

global  e_1424,  e_2324 , ^e_1324 

e_1424 ,  e_2324 ,  e_1324  =  [0],  [0],  [0] 

ct_e_1424,  ct_e_2324,  ct_e_1324  =  0,  0,  0 
k,  m  =  0,  0 
if (ct_14  ! =  ct_24 ) : 

print  'The  edges  nodes  are  noe  2324t  compatible  14  24  --  check 

the  code ' 

while  k  in  range (len (e  14)): 
checkl  =  e  14 [k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  24)): 
check2  =  e  24 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tzl-tz2 ) <=shf ) : 

ct  e  1424  =  ct  e  1424  +  2 
e_1424  =  e_1424  +  [checkl] 
e_1424  =  e_1424  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e__1424  [e_1424.  index  (0)  ] 

if ( (ct_e_1424/ct_14  !=  2)  and  (ct_e_1424/ct_24  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  14  and  24  Uncracked 

Region ' 

else : 

print  '  Edge  pairs  14  and  24  are  identified' 

## - 

k,  m  =  0,  0 
if (ct_23  ! =  ct_24 ) : 

print  'The  edges  nodes  are  not  compatible  23  24  --  check  the 

code ' 

while  k  in  range (len (e_23) ) : 
checkl  =  e  23 [k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  24)): 
check2  =  e  24 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (abs (tzl-tz2 ) <=shf ) : 

ct  e  2324  =  ct  e  2324  +  2 
e_2  32  4  =  e_2324  +  [checkl] 
e  2324  =  e  2324  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e  2324 [e  2324 . index (0) ] 

if ( (ct_e_2324/ct_23  !=  2)  and  (ct_e_2324/ct_24  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  23  and  24  Uncracked 

Region ' 

else : 

print  '  Edge  pairs  23  and  24  are  identified' 
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## 


k,  m  =  0,  0 
if (ct_13  ! =  ct_24) : 

print  'The  edges  nodes  are  not  compatible  13  24  --  check  the 

code ' 

while  k  in  range (len (e  13)): 
checkl  =  e  13 [k] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (e  24)): 
check2  =  e  24 [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if ( (abs (tzl-tz2 ) <=shf )  and  (abs (tyl  +  ty2)<=  shf ) ) : 
ct  e  1324  =  ct  e  1324  +  2 
e_1324  =  e_1324  +  [checkl] 
e_1324  =  e_1324  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  e_1324  [e_1324 . index (0)  ] 

if ( (ct_e_1324/ct_13  !=  2)  and  (ct_e_1324/ct_24  !=  2)): 

print  '  Error  in  identifying  edge  pairs  -  Edges  13  and  24  Uncracked 

Region ' 

else : 

print  '  Edge  pairs  13  and  24  are  identified  ' 

## - 

## - 

def  nodes_elements ( )  : 
strgg  =  '*Node\n' 
output_l .write (strgg) 
nn  =  0 

while  nn  in  range ( len (num  n) ) : 

strrg  =  '  '+str(num  n[nn] )+','+'  '+  str(x[nn] )  +  '  + 

str(y[nn])  +  '  +  str(z [nn] )  +  '\n' 

output_l .write (strrg) 
nn  =  nn  +  1 


strgg  =  '*Element,  type=C3D8 I \n ' 
output_l .write (strgg) 
nn  =  0 

while  nn  in  range ( len (num  el)): 

strrg  =  '  '+str(num  el [nn] )+','+ '  '+  str (nodel [nn] )  +  '  + 

str (node2 [nn] )+','+'  ' 

strrg  =  strrg  +  str (node3 [nn] )+','+ '  '  +  str (node4 [nn] )+','+ '  ' 

+str (node5 [nn] )+','+'  ' 

strrg  =  strrg  +str (node6 [nn] )  ' +str (node7 [nn] )+','+ '  ' 

+str (node8 [nn] )+','+ '  '  +'\n' 

output_l .write (strrg) 
nn  =  nn  +  1 


## - 

def  face_pairs()  : 

##  nodes  on  faces  are  recognized  now.  we  do  not  need  face  5  and  face  6  nodes. 


global 

ct  f  1 , 

ct 

f  2,  ct  f  3, 

ct  f  4 , 

ct 

f  5, 

ct  f 

6, 

Pi 

global 

f  lc,  f 

2c, 

ct  f  lc,  ct 

f  2c,  f 

3, 

f  4, 

f  1, 

f 

2,  f  5c,  f  6c, 

ct  f  5c,  ct 

f  6c 

ct  f  1 , 

ct  f  2, 

-  ct 

f  3,  ct  f  4, 

•  ct  f  5, 

ct 

f  6 

=  o. 

0, 

0,  0,  0,  0 

f_!,  f_ 

2,  f_3 , 

f  4 

,  f_5 ,  f_6  = 

[0],  [0] 

,  [ 

0]  , 

[0]  , 

[0] 

,  [0] 
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f_lc,  f_2c  =  [0]  ,  [0] 

f_5c,  f_6c  =  [0]  ,  [0] 

ct_f_lc,  ct_f_2c  =0,  0 
ct_f_5c,  ct_f_6c  =0,  0 
j  =  0 

while  j  in  range ( len (num  n) ) : 

tx,  ty,  tz  =  x[j],  y [ j ]  ,  z [ j ] 
check  =  num  n [ j ] 

frontl,  frontm,  frontn,  fronto  =  0,  0,  0,  0 
front_5,  front_6  =  0,  0 


if 

check 

in 

tm: 

frontl , 

frontm. 

frontn. 

fronto. 

front 

_5^ 

front 

_6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

tern: 

frontl , 

frontm. 

frontn. 

fronto. 

front 

front 

6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

35: 

frontl , 

frontm. 

frontn. 

fronto. 

front 

_5' 

front 

6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

36: 

frontl , 

frontm. 

frontn. 

fronto. 

front 

front 

6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

45: 

frontl , 

frontm. 

frontn. 

fronto. 

front 

front 

6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

46: 

frontl , 

frontm. 

frontn. 

fronto. 

front 

front 

6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

15: 

frontl , 

frontm. 

frontn. 

fronto. 

front 

front 

6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

25: 

frontl , 

frontm. 

frontn. 

fronto. 

front 

_5' 

front 

_6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

1 6  ; 

frontl , 

frontm. 

frontn. 

fronto. 

front 

front 

6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

26: 

frontl , 

frontm. 

frontn. 

fronto. 

front 

front 

6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

13 : 

frontl , 

frontm. 

frontn. 

fronto. 

front 

front 

6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

23: 

frontl , 

frontm. 

frontn. 

fronto. 

front 

front 

6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

14  : 

frontl , 

frontm. 

frontn. 

fronto. 

front 

_5' 

front 

6 

= 

1, 

1, 

1, 

1,  1, 

1 

if 

check 

in 

e 

24  : 

frontl , 

frontm. 

frontn. 

fronto. 

front 

5, 

front 

6 

=  1,  1,  1,  1,  1,  1 

if (abs (ty-yb) <=shf ) : 

if ( (outerlayer  ==  0)  and  ( lumped_inner  ==  0) ) : 

if (  ( (tz>ck  z  1)  and  (tz<ck  z  2)  and  (abs (tx-xab) <=shf )  and 

not  (abs (tz-ck  z  l)<=shf)  and  not (abs (tz-ck  z  2)<=shf)) 

or  ( (tz<ck  z  4)  and  (tz>ck  z  3)  and  (abs (tx-xab) <=shf)  and 
not  (abs (tz-ck  z_3)<=shf)  and  not (abs (tz-ck  z  4)<=shf))): 

if (frontl  ! =  1 ) : 

ct  f  lc  =  ct  f  1c  +  1 
f  lc  =  f  lc  +  [check] 

else : 

if (frontl  ! =  1 ) : 

ctfl=ctfl+l 
f  1  =  f  1  +  [check] 

elif ( (outerlayer  ==  0)  and  (lumped  inner  ==  1)) : 
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if (  (tz>ck  z  1)  and  (tz<ck  z  4)  and  (abs (tx-xab) <=shf )  and 
not ( (abs (tz-ck_z_l ) <=shf )  or (abs (tz-ck_z_4 ) <=shf ) )  ): 

if ( f rontl  ! =  1 ) : 

ct  f  lc  =  ct  f  1c  +  1 
f  lc  =  f  lc  +  [check] 

else : 

if ( f rontl  ! =  1 ) : 

ctfl=ctfl+l 
f  1  =  f  1  +  [check] 

elif ( (outerlayer  ==  1)  and  ( lumped_inner  ==  0)): 

if (  (  (tz>ck  z  1)  and  (tz<ck  z  2)  and  (abs (tx-xab) <=shf)  and 

not (abs (tz-ck_z_2 ) <=shf )  ) 

or  (  (tz<ck  z  4)  and  (tz>ck  z  3)  and  (abs (tx-xab) <=shf)  and 
not (abs (tz-ck_z_3) <=shf )  )  ): 

if ( f rontl  ! =  1 ) : 

ct  f  lc  =  ct  f  lc  +  1 
f  lc  =  f  lc  +  [check] 

else : 

if ( f rontl  ! =  1 ) : 

ct  f  1  =  ct  f  1  +  1 
f  1  =  f  1  +  [check] 

elif (abs (ty-ya) <=shf )  : 

if ( (outerlayer  ==  0)  and  ( lumped_inner  ==  0) ) : 

if (  ( (tz>ck  z  1)  and  (tz<ck  z  2)  and  (abs (tx-xab) <=shf)  and 

not  (abs (tz-ck  z  l)<=shf)  and  not (abs (tz-ck  z  2)<=shf)) 

or  ( (tz<ck  z  4)  and  (tz>ck  z  3)  and  (abs (tx-xab) <=shf)  and 
not  (abs (tz-ck  z_3)<=shf)  and  not (abs (tz-ck  z  4)<=shf)  )  )  : 

if ( f rontm  ! =  1 ) : 

ct  f  2c  =  ct  f  2c  +  1 
f  2c  =  f  2c  +  [check] 

else : 

if ( f rontm  ! =  1 ) : 

ct  f  2  =  ct  f  2  +  1 
f  2  =  f  2  +  [check] 

elif ( (outerlayer  ==  0)  and  ( lumped_inner  ==  1)): 

if (  (tz>ck  z  1)  and  (tz<ck  z  4)  and  (abs (tx-xab) <=shf)  and 
not ( (abs (tz-ck_z_l ) <=shf )  or (abs (tz-ck_z_4 ) <=shf ) )  ): 

if ( f rontm  ! =  1 ) : 

ct  f  2c  =  ct  f  2c  +  1 
f  2c  =  f  2c  +  [check] 

else : 

if ( f rontm  ! =  1 ) : 

ct  f  2  =  ct  f  2  +  1 
f_2  =  f_2  +~ [check] 

elif ( (outerlayer  ==  1)  and  ( lumped_inner  ==  0)): 

if (  (  (tz>ck  z  1)  and  (tz<ck  z  2)  and  (abs (tx-xab) <=shf)  and 

not (abs (tz-ck_z_2 ) <=shf )  ) 

or  (  (tz<ck  z  4)  and  (tz>ck  z  3)  and  (abs (tx-xab) <=shf)  and 
not (abs (tz-ck_z_3) <=shf )  )  ): 

if ( f rontm  ! =  1 ) : 

ct  f  2c  =  ct  f  2c  +  1 
f  2c  =  f  2c  +  [check] 
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else : 

if ( f rontm  ! =  1 ) : 

ct  f  2  =  ct  f  2  +  1 
f_2  =  f_2  +~ [check] 

elif (abs (tx-xa) <=shf ) : 
if ( f rontn  ! =  1 )  : 

ct_f_3  =  ct_f_3  +  1 
f_3  =  f_3  +  [check] 

elif (abs (tx-xb) <=shf ) : 
if ( f ronto  ! =  1 ) : 

ct  f  4  =  ct  f  4  +  1 
f  4  =  f  4  +  [check] 

elif (abs (tz-zb) <=shf ) : 

if (outerlayer  !=  1)  : 
if (front  5  ! =  1 ) : 

ct_f_5  =  ct_f_5  +  1 
f_5  =  f_5  +  [check] 

else : 

if (front  5  ! =  1 ) : 

if (abs (tx-xab) <=shf ) : 

ct_f_5c  =  ct_f_5c  +1 
f_5c  =  f_5c  +  [check] 
else : 

ct_f_5  =  ct_f_5  +  1 
f_5  =  f_5  +  [check] 

elif (abs (tz-za)  <=  shf ) : 
if (outerlayer  !=  1)  : 
if (front  6  ! =  1 ) : 

ct_f_6  =  ct_f_6  +  1 
f  6  =  f  6  +  [check] 

else : 

if (front  6  ! =  1 ) : 

if (abs (tx-xab) <=shf ) : 

ct_f_6c  =  ct_f_6c  +  1 
f_6c  =  f_6c  +  [check] 
else : 

ct_f_6  =  ct_f_6  +  1 
f  6  =  f  6  +  [check] 


j  =  j  +  1 

del  f_l [ f_l . index ( 0 ) ] 
del  f  2[f  2. index (0)] 
del  f_3 [ f_3 . index ( 0 ) ] 
del  f  4 [ f  4. index (0)] 
del  f_5 [ f_5 . index ( 0 ) ] 
del  f  6 [ f  6. index (0)] 


del  f_lc [ f_lc . index ( 0 ) ] 
del  f  2c[f  2c.index(0)] 


if (outerlayer  ==  1)  : 

del  f  5c[f  5c.index(0)] 
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del  f_6c [ f_6c . index ( 0 )  ] 
print  'Face  nodes  are  identified' 

## - 

##  this  routine  is  for  identifying  the  node  pairs  in  all  the  combinations  of 
edge  pairs, 

##  face  pairs,  corner  node  pairs,  face  center  pairs. 

## - 

global  ct_f_12,  ct_f_34,  fp_12,  fp_34,  ct_f_56,  fp_56 

j ,  k  =  0,  0 

fp_12 ,  fp_34,  fp_56  =  [0],  [0],  [0] 

ct_f_12,  ct_f_34,  ct_f_56  =0,  0,  0 

while  j  in  range (len(f  1)): 
if (ct_f_l  !=  ct_f_2) : 

print  'Face  pairs  FI  and  F2  are  not  matched' 
checkl  =  f_l [ j ] 

txl,  tyl,  tzl  =  x[checkl  -  l],y[checkl  -  1],  z[checkl  -  1] 
k  =  0 

while  k  in  range (len(f  2)): 
check2  =  f _ 2 [ k ] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (  (abs (txl  -  tx2)  <=  shf)  and  (abs (tzl  -  tz2)  <=  shf)  and 
(abs (tyl  +  ty2)  <=  shf)): 

ct_f_12  =  ct_f_12  +  2 
fp  12  =  fp  12  +  [checkl] 
fp  12  =  fp  12  +  [check2] 
k  =  k  +  1 

j  =  j  +  1 

del  fp  12 [fp  12. index (0)] 

if ( (ct_f_12/ct_f_l  ! =  2)  and  (ct_f_12/ct_f_2  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  Face  1  and  Face  2 ' 
else : 

print  '  Face  pairs  FI  and  F2  are  identified' 

## - 

j  ,  k  =  0, 0 

while  j  in  range ( len ( f_3 )) : 
if (ct_f_3  !=  ct_f_4) : 

print  'Face  pairs  FI  and  F2  are  not  matched' 
checkl  =  f_3 [ j ] 

txl,  tyl,  tzl  =  x[checkl  -  l],y[checkl  -  1],  z[checkl  -  1] 
k  =  0 

while  k  in  range (len (f  4)): 
check2  =  f  4 [ k] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if (  (abs (txl  +  tx2)  <=  shf)  and  (abs (tzl  -  tz2)  <=  shf)  and 
(abs (tyl  -  ty2)  <=  shf)): 

ct  f  34  =  ct  f_34  +  2 
fp  34  =  fp_34  +  [checkl] 
fp  34  =  fp_34  +  [check2] 
k  =  k  +  1 
j  =  j  +  1 

del  fp_34 [ fp_34 . index ( 0 )  ] 

if ( (ct_f_34/ct_f_3  ! =  2)  and  (ct_f_34/ct_f_4  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  Face  3  and  Face  4 ' 
else : 
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## 


print 


Face  pairs  F3  and  F4  are  identified 


if  k  =  0, 0 

while  j  in  range (len(f  5)): 
if (ct_f_5  !=  ct_f_6) : 

print  'Face  pairs  F5  and  F6  are  not  matched' 
checkl  =  f_5 [ j ] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
k  =  0 

while  k  in  range (len(f  6)): 
check2  =  f  6 [ k] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if  (  (abs (txl  -  tx2)  <=  shf)  and  (abs (tyl  -  ty2)  <=  shf)  )  : 
ct_f_56  =  ct_f_56  +  2 
fp_56  =  fp_56  +  [checkl] 
fp_56  =  fp_56  +  [check2] 
k  =  k  +  1 
j  =  j  +  1 

del  fp_56 [fp_56 . index (0)  ] 

if ( (ct_f_56/ct_f_5  !=  2)  and  (ct_f_56/ct_f_6  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  Face  5  and  Face  6' 
else : 

print  '  Face  pairs  F5  and  F6  are  identified' 


## - 

global  e  lc  el,  e  lc  n,  e  2c  el,  e  2c  n 

e_lc_el,  e_lc_n,  e_2c_el,  e_2c_n  =  [0],  [0],  [0],  [0] 

k,  m  =  0,  0 

e_lc_n,  e_lc_el  =  [0] ,  [0] 

while  k  in  range (len(f  lc) ) : 
check  =  f  lc[k] 
m  =0 

while  m  in  range ( len (nodel )) : 
checkl  =  nodel [m] 
check2  =  node2 [m] 
check3  =  node3 [m] 
check4  =  node4 [m] 
check5  =  node5 [m] 
check6  =  node6[m] 
check7  =  node7 [m] 
check8  =  node8 [m] 
if  check  in  e  lc  n: 

pass 
else : 

if ( (check  ==  checkl)  or  (check  ==  check2)  or  (check  == 
check3)  or  (check  ==  check4) 

or  (check  ==  check5)  or  (check  ==  check6)  or  (check  == 
check7)  or  (check  ==  check8) ) : 

check9  =  num  el [m] 
e_lc_el  =  e_lc_el  +  [check9] 
e  lc  n  =  e  lc  n  +  [check] 
m  =  m  +  1 
k  =  k  +  1 

del  e_lc_el [e_lc_el . index ( 0 ) ] 
del  e_lc_n [e_lc_n . index ( 0 ) ] 

## - 
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## - 

global  e  lc_BOBp,  e  lc  BBp 

##  from  math  import  acosFace  nodes  are  identified 
pi  =  acos (-1.0) 
k,  m  =  0,  0 

e_lc_BOBp,  e_lc_BBp  =  [0] ,  [0] 

while  k  in  range (len (e  lc  el)): 
check  =  e_lc_el[k] 
check2  =  e  lc  n[k] 

tl,  t2,  t3,  t4  =  nodel [check  -  1],  node2 [check  -  1],  node3 [check  - 
1] ,  node4 [check  -  1] 

t5,  t6,  t7,  t8  =  node5 [check  -  1],  node6 [check  -  1],  node7 [check  - 


1] ,  node8 [check  - 
txl,  tx2. 

1] 

tx3,  tx4 

=  x  [tl 

-  i]. 

x  [t2  - 

1] , 

x  [t3 

-  1],  X[t4 

-  1] 

tx5,  tx6. 

tx7,  tx8 

=  x  [t5 

-  i]. 

x  [t6  - 

1] , 

x  [  1 7 

-  1]  ,  x  [  1 8 

-  1] 

tyl,  ty2 , 

ty3,  ty4 

=  y  [tl 

-  i]. 

y[t2  - 

1] , 

y  [t3 

-  l],  y[t4 

-  1] 

ty5 ,  ty6. 

ty7,  ty8 

=  y[t5 

-  i]. 

y[t6  - 

1] , 

y[t7 

-  l],  y[t8 

-  l] 

tempx  =  1/8.0  *  (txl  +  tx2  +  tx3  +  tx4  +  tx5  +  tx6  +  tx7  +  tx8) 
tempy  =  1/8.0  *  (tyl  +  ty2  +  ty3  +  ty4  +  ty5  +  ty6  +  ty7  +  ty8) 
if (tempx  >  0.0  ) : 

e  lc  BBp  =  e  lc  BBp  +  [check2] 
el if (tempx  <  0.0): 

e  lc  BOBp  =  e  lc  BOBp  +  [check2] 
k  =  k~+  1 

del  e  lc  BOBp[e  lc  BOBp . index ( 0 ) ] 
del  e  lc  BBp[e  lc  BBp . index ( 0 )  ] 


## - 

k,  m  =  0,  0 

while  k  in  range (len (f_2c) ) : 
check  =  f  2c [ k] 
m  =0 

while  m  in  range ( len (nodel )) : 
checkl  =  nodel [m] 
check2  =  node2 [m] 
check3  =  node3 [m] 
check4  =  node4 [m] 
check5  =  node5 [m] 
check6  =  node6[m] 
check7  =  node7 [m] 
check8  =  node8 [m] 
if  check  in  e  2c  n: 

pass 
else : 

if ( (check  ==  checkl)  or  (check  ==  check2)  or  (check  == 
check3)  or  (check  ==  check4) 

or  (check  ==  check5)  or  (check  ==  check6)  or  (check  == 
check7)  or  (check  ==  check8))  : 

check9  =  num  el [m] 
e_2c_el  =  e_2c_el  +  [check9] 
e  2c_n  =  e  2c  n  +  [check] 
m  =  m  +  1 
k  =  k  +  1 

del  e_2c_el [e_2c_el . index ( 0 ) ] 
del  e  2c  n[e  2c  n.index(O)] 
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## 


1] , 
1] , 


k,  m  =  0,  0 

global  e  2c_D0Dp,  e  2c  DDp 
e_2c_DODp,  e_2c_DDp  =  [0] ,  [0] 

while  k  in  range ( len (e_2c  el)): 
check  =  e_2c  el[k] 
check2  =  e  2c  n[k] 

tl,  t2,  t3,  t4  =  nodel [check  -  1],  node2 [check  -  1], 
node4 [check  -  1] 

t5,  t6,  t7,  t8  =  node5 [check  -  1],  node6 [check  -  1], 
node8 [check  -  1 ] 


txl , 

tx2 , 

tx3 , 

tx4 

=  x  [tl 

-  i]. 

x  [t2  - 

1] , 

x  [t3 

-  1], 

tx5 , 

tx6. 

tx7 , 

tx8 

=  x  [t5 

-  i]. 

x  [t6  - 

1] , 

x  [t7 

-  1], 

tyl. 

ty2 , 

ty3. 

ty4 

=  y  [tl 

-  i]. 

y[t2  - 

1] , 

y  [t3 

-  1], 

ty5. 

ty6. 

ty7 , 

ty8 

=  y[t5 

-  i]. 

y[t6  - 

1] , 

y[t7 

-  1], 

tempx  =  1/8.0  *  (txl  +  tx2  +  tx3  +  tx4  +  tx5  +  tx6  + 
tempy  =  1/8.0  *  (tyl  +  ty2  +  ty3  +  ty4  +  ty5  +  ty6  + 
tempxy  =  atan (tempy/ tempx)  *  180  /  pi 
if (tempx  <  0.0  ) : 

e  2c  DODp  =  e  2c  DODp  +  [check2] 
elif (tempx  >  0.0  ) : 

e  2c  DDp  =  e  2c  DDp  +  [check2] 


node3 [check  - 
node7 [check  - 


x  [  1 4 

-  1] 

x  [t8 

-  1] 

y[t4 

-  1] 

y[t8 

-  1] 

tx7  + 

tx8 ) 

ty7  + 

ty8) 

k  =  k  +  1 

del  e  2c  DODp[e  2c  DODp . index ( 0 ) ] 
del  e  2c  DDp[e  2c  DDp . index ( 0 ) ] 

## - - - - - 

## 

global  f  12c  BDp,  ct  f  12c 
f_12c_BDp,  ct_f_12c  =  [0] ,  0 
k, m  =  0,0 

while  k  in  range (len (e  lc_BBp) ) : 
check  =  e  lc  BBp[k] 

txl,  tyl,  tzl  =  x[check-l],  y[check-l],  z[check-l] 
m  =  0 

while  m  in  range (len (e  2c_DDp) ) : 
check2  =  e  2c  DDp [m] 

tx2,  ty2,  tz2  =  x[check2-l],  y[check2-l],  z[check2-l] 
if (abs (tzl-tz2 ) <=shf )  : 

ct  f  12c  =  ct  f  12c  +  2 
f  12c  BDp  =  f  12c_BDp  +  [check] 
f  12c  BDp  =  f  12c  BDp  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  f  12c  BDp[f  12c  BDp . index ( 0 ) ] 

if ( (ct  f  12c/len(e  2c  DDp)  !=  2)  and  (ct  f  12c/len(e  lc  BBp)  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  1C  and  2  C  ' 
else : 

print  '  Face  pairs  1  C  and  2  C  BD  are  identified  ' 

## - 

## - 

## 

global  f  12c  BODp,  ct  f  12cd 
f_12c_BODp,  ct_f_12cd  =  [0] ,  0 
k, m  =  0,0 

while  k  in  range (len (e  lc_BOBp) ) : 
check  =  e  lc  BOBp[k] 
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txl,  tyl,  tzl  =  x[check-l],  y[check-l],  z[check-l] 
m  =  0 

while  m  in  range ( len (e_2c  DODp) ) : 
check2  =  e  2c  DODp [m] 

tx2,  ty2,  tz2  =  x[check2-l],  y[check2-l],  z[check2-l] 
if (abs (tzl-tz2 ) <=shf ) : 

ct  f  12cd  =  ct  f  12cd  +  2 
f  12c  BODp  =  f  12c  BODp  +  [check] 
f  12c  BODp  =  f  12c  BODp  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  f  12c  BODp[f  12c_BODp . index ( 0 )  ] 

if ( (ct  f  12cd/len(e  2c  DODp)  !=  2)  and  (ct  f  12cd/len(e  lc  BOBp)  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  1C  and  2  C  ' 
else : 

print  '  Face  pairs  1  C  and  2  C  BOD  are  identified  ' 

## - 

if  (outerlayer  ==  1)  : 

##  the  faces  5  and  6  have  nodes  on  the  crack.  Therefore  have  to  be  divided, 
global  e_5c_el,  e_5c_n,  e_6c_el,  e_6c_n 
e_5c_el,  e_5c_n,  e_6c_el,  e_6c_n  =  [0],  [0],  [0],  [0] 

k,  m  =  0,  0 

e_5c_n,  e_5c_el  =  [0],  [0] 

while  k  in  range (len (f  5c)): 
check  =  f_5c[k] 
m  =0 

while  m  in  range ( len (nodel )) : 
checkl  =  nodel [m] 
check2  =  node2 [m] 
check3  =  node3 [m] 
check4  =  node4 [m] 
check5  =  node5 [m] 
check6  =  node6[m] 
check7  =  node7 [m] 
check8  =  node8 [m] 
if  check  in  e  5c  n: 

pass 
else : 

if ( (check  ==  checkl)  or  (check  ==  check2)  or  (check  == 
check3)  or  (check  ==  check4) 

or  (check  ==  check5)  or  (check  ==  check6)  or  (check  == 
check7)  or  (check  ==  check8))  : 

check9  =  num  el [m] 
e_5c_el  =  e_5c_el  +  [check9] 
e_5c_n  =  e_5c_n  +  [check] 
m  =  m  +  1 
k  =  k  +  1 

del  e_5c_el [e_5c_el . index ( 0 )  ] 
del  e  5c  n[e  5c_n . index ( 0 ) ] 


global  e_5c_BOBp,  e_5c_BBp 
k,  m  =  0,  0 

e_5c_BOBp,  e_5c_BBp  =  [0] ,  [0] 

while  k  in  range ( len (e_5c_el ) ) : 
check  =  e_5c_el[k] 
check2  =  e  5c  n[k] 
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tl,  t2,  t3,  t4  =  nodel [check  -  1],  node2 [check  -  1],  node3 [check 

-  1],  node4 [check  -  1] 

t5,  t6,  t7,  t8  =  node5 [check  -  1],  node6 [check  -  1],  node7 [check 

-  1],  node8 [check  -  1] 


txl , 

tx2,  tx3. 

tx4  = 

X 

[ti  - 

-  1], 

x  [t2  - 

1] 

[t3  - 

1]  , 

.  x  [  1 4 

-  1] 

tx5 , 

tx6,  tx7. 

tx8  = 

X 

[t5  - 

-  1], 

x  [t6  - 

1] 

,  x 

[  1 7  - 

1]  , 

•  x  [  1 8 

-  1] 

tyl. 

ty2 ,  ty3 , 

ty4  = 

y 

[tl  - 

-  1], 

y[t2  - 

1] 

,  y 

[t3  - 

1]  , 

•  y[t4 

-  1] 

ty5. 

ty6,  ty7. 

ty8  = 

y 

[t5  - 

-  1], 

y[t6  - 

1] 

-•  y 

[t7  - 

1]  , 

•  y[t8 

-  1] 

tempx 

.  =  1/8.0 

*  (txl 

+ 

tx2 

+  tx3 

+  tx4 

+ 

tx5 

+  tx6 

+ 

tx7  + 

tx8 ) 

tempy 

-  =  1/8.0 

*  (tyl 

+ 

ty2 

+  ty3 

+  ty4 

+ 

ty5 

+  ty6 

+ 

ty7  + 

ty8) 

if (tempx  >  xab  ) : 

e  5c  BBp  =  e  5c  BBp  +  [check2] 
elif (tempx  <  xab) : 

e  5c  BOBp  =  e  5c  BOBp  +  [check2] 
k  =  k~+  1 

del  e  5c  BOBp[e  5c  BOBp . index ( 0 ) ] 
del  e_5c_BBp [e_5c_BBp . index ( 0 ) ] 


## - 

k,  m  =  0,  0 

e_6c_n,  e_6c_el  =  [0] ,  [0] 

while  k  in  range (len(f  6c)): 
check  =  f_6c[k] 
m  =0 

while  m  in  range ( len (nodel )) : 
checkl  =  nodel [m] 
check2  =  node2 [m] 
check3  =  node3 [m] 
check4  =  node4 [m] 
check5  =  node5 [m] 
check6  =  node6[m] 
check7  =  node7 [m] 
check8  =  node8 [m] 
if  check  in  e  6c  n : 

pass 
else : 

if ( (check  ==  checkl)  or  (check  ==  check2)  or  (check  == 
check3)  or  (check  ==  check4) 

or  (check  ==  check5)  or  (check  ==  check6)  or  (check  == 
check7)  or  (check  ==  check8))  : 

check9  =  num  el [m] 
e_6c_el  =  e_6c_el  +  [check9] 
e  6c  n  =  e  6c  n  +  [check] 
m  =  m  +  1 
k  =  k  +  1 

del  e_6c_el [e_6c_el . index ( 0 )  ] 
del  e  6c  n[e  6c_n . index ( 0 ) ] 


k,  m  =  0,  0 

global  e_6c_DODp,  e_6c_DDp 
e_6c_DODp,  e_6c_DDp  =  [0] ,  [0] 

while  k  in  range (len (e  6c  el)): 
check  =  e_6c_el[k] 
check2  =  e  6c  n[k] 
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tl,  t2,  t3,  t4  =  nodel [check  -  1],  node2 [check  -  1],  node3 [check 

-  1],  node4 [check  -  1] 

t5,  t6,  t7,  t8  =  node5 [check  -  1],  node6 [check  -  1],  node7 [check 

-  1],  node8 [check  -  1] 


txl , 

tx2,  tx3. 

tx4  = 

X 

[ti  - 

-  1], 

x  [t2  - 

1] 

[t3  - 

1]  , 

.  x  [  1 4 

-  1] 

tx5 , 

tx6,  tx7. 

tx8  = 

X 

[t5  - 

-  1], 

x  [t6  - 

1] 

,  x 

[  1 7  - 

1]  , 

•  x  [  1 8 

-  1] 

tyl. 

ty2 ,  ty3. 

ty4  = 

y 

[tl  - 

-  1], 

y[t2  - 

1] 

-•  y 

[t3  - 

1]  , 

•  y[t4 

-  1] 

ty5. 

ty6,  ty7. 

ty8  = 

y 

[t5  - 

-  1], 

y[t6  - 

1] 

-•  y 

[t7  - 

1]  , 

•  y[t8 

-  1] 

tempx 

.  =  1/8.0 

*  (txl 

+ 

tx2 

+  tx3 

+  tx4 

+ 

tx5 

+  tx6 

+ 

tx7  + 

tx8 ) 

tempy 

=  1/8.0 

*  (tyl 

+ 

ty2 

+  ty3 

+  ty4 

+ 

ty5 

+  ty6 

+ 

ty7  + 

ty8) 

tempxy  =  atan (tempy/tempx)  *  180  /  pi 
if (tempx  <  0.0  ) : 

e  6c  DODp  =  e  6c_DODp  +  [check2] 
elif (tempx  >  0.0  ): 

e  6c  DDp  =  e  6c  DDp  +  [check2] 

k  =  k  +  1 

del  e  6c  DODp[e  6c  DODp . index ( 0 )  ] 
del  e  6c  DDp[e  6c  DDp . index ( 0 )  ] 


global  f_56c_BDp,  ct_f_56c 
f_56c_BDp,  ct_f_56c  =  [0]  ,  0 
k, m  =  0,0 

while  k  in  range (len (e  5c  BBp) ) : 
check  =  e  5c  BBp[k] 

txl,  tyl,  tzl  =  x[check-l],  y[check-l],  z[check-l] 
m  =  0 

while  m  in  range (len (e  6c  DDp)): 
check2  =  e  6c_DDp [m] 

tx2,  ty2,  tz2  =  x[check2-l],  y[check2-l],  z[check2-l] 
if (abs (tyl-ty2) <=shf ) : 

ct_f_56c  =  ct_f_56c  +  2 
f  56c  BDp  =  f  56c  BDp  +  [check] 
f  56c  BDp  =  f  56c  BDp  +  [check2] 
m  =  m  +  1 
k  =  k  +  1 

del  f  56c  BDp[f  56c  BDp . index ( 0 ) ] 

if ( (ct_f_56c/len (e_6c_DDp)  !=  2)  and  (ct_f_56c/len (e_5c_BBp)  !=  2)): 

print  '  Error  in  identifying  face  pairs  -  5  C  and  6  C  BD  ' 

else : 

print  '  Face  pairs  5  C  and  6  C  BD  are  identified  ' 


global  f_56c_BODp,  ct_f_56cd 
f_56c_BODp,  ct_f_56cd  =  [0] ,  0 
k, m  =  0,0 

while  k  in  range (len (e  5c_BOBp) ) : 
check  =  e_5c  BOBp[k] 

txl,  tyl,  tzl  =  x[check-l],  y[check-l],  z[check-l] 
m  =  0 

while  m  in  range (len (e  6c  DODp)): 
check2  =  e  6c  DODp [m] 

tx2,  ty2,  tz2  =  x[check2-l],  y[check2-l],  z[check2-l] 
if (abs (tyl-ty2) <=shf ) : 

ct_f_56cd  =  ct_f_56cd  +  2 
f  56c  BODp  =  f  56c  BODp  +  [check] 
f  56c  BODp  =  f  56c  BODp  +  [check2] 
m  =  m  +  1 
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2)  )  : 


k  =  k  +  1 

del  f  56c  BODp[f  56c_BODp. index (0) ] 

if ( (ct_f_56cd/len (e_6c_DODp)  !=  2)  and  (ct_f_56cd/len (e_5c_BOBp)  != 


## 


print 
else : 

print 


Error  in  identifying  face  pairs  -  5  C  and  6  C  BOD  ' 

Face  pairs  5  C  and  6  C  BOD  are  identified  ' 


global  e  25  AOAp,  e  26  AOAp,  e  25  AAp,  e  16  AAp 
global  e  15  AOAp,  e  15  AAp,  e  16  AOAp,  e  16  AAp 
global  e  1626,  e  1526,  e_2526 

if (outerlayer  ==  1) : 

trip_e_15c_ll,  trip_e_15c_22  =  0,  0 

trip_e_l 6c_l 1 ,  trip_e_l 6c_22  =0,  0 

trip  e  25c  11,  trip  e  25c_22  =  0,  0 

trip  e_26c  11,  trip  e  26c  22  =  0,  0 


m  =  0 


while  m  in 

range (len (num  el) ) : 

checkl 

=  nodel 

m] 

check2 

=  node2 

m] 

check3 

=  node3 

m] 

check4 

=  node4 

m] 

check5 

=  node5 

m] 

check6 

=  node6 

m] 

check7 

=  node7 

m] 

check8 

=  node8 

m] 

chec  = 

[checkl , 

check2,  check3. 

check8 ] 


check4 , 


check5 , 


check6. 


check7 , 


if (trip_e_15c_ll==0) : 

if  e  15c_ll  in  chec: 
trip  e  15c  11  =  1 
c  146  el  =  num  el [m] 


tl,  t2,  t3,  t4  =  nodel [c  146  el 

-  1], 

node2 [c  146 

el 

1] ,  node3 

[c_14  6_ 

el 

-  1],  node4 [c_146_el  -  1] 

t5,  t6,  t7,  t8  =  node5[c  146  el 

-  1], 

node6 [c  146 

el 

1] ,  node7 

[c_14  6_ 

el 

-  1],  node8 [c_146_el  -  1] 

txl,  tx2,  tx3,  tx4  =  x[tl  -  1], 

x  [t2  - 

1] ,  x[t3  - 

1]  , 

x[t4  - 

1] 

tx5,  tx6,  tx7,  tx8  =  x[t5  -  1], 

x  [t6  - 

1],  x[t7  - 

1]  , 

x  [  1 8  - 

1] 

tyl ,  ty2 ,  ty3 ,  ty4  =  y[tl  -  1], 

y[t2  - 

1],  y[t3  - 

1]  , 

y[t4  - 

1] 

ty5,  ty6,  ty7,  ty8  =  y[t5  -  1], 

y[t6  - 

l],  y[t7  - 

1]  , 

y[t8  - 

1] 

tempx  =  1/8.0  *  (txl  +  tx2  +  tx3 

+  tx4 

+  tx5  +  tx6 

+ 

+  tx8 ) 

tempy  =  1/8.0  *  (tyl  +  ty2  +  ty3 

+  ty4 

+  ty5  +  ty6 

+ 

+  ty8) 

if (tempx  <  0.0): 

e  15  AOAp  =  e  15c  11 

e  15  AAp  =  e  15c_22 


else : 

e  15  AOAp  =  e  15c  22 
e  15  AAp  =  e  15c  11 
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if (trip_e_16c_ll==0) : 

if  e_16c_ll  in  chec: 
trip  e  16c  11  =  1 
c  146  el  =  num  el [m] 

tl,  t2,  t3,  t4  =  nodel [c_146_el  -  1],  node2 [c_146_el  - 
1],  node3 [c_146_el  -  1],  node4 [c_146_el  -  1] 

t5,  t6,  t7,  t8  =  node5 [c_146_el  -  1],  node6 [c_146_el  - 
1],  node7 [c_146_el  -  1],  node8 [c_146_el  -  1] 

txl,  tx2,  tx3,  tx4  =  x[tl  -  1],  x[t2  -  1],  x[t3  -  1], 

x[t4  -  1] 

tx5,  tx6,  tx7,  tx8  =  x[t5  -  1],  x[t6  -  1],  x[t7  -  1], 

x [ 1 8  -  1] 

tyl ,  ty2 ,  ty3,  ty4  =  y[tl  -  1],  y[t2  -  1],  y[t3  -  1], 

y[t4  -  1] 

ty5,  ty6,  ty7,  ty8  =  y[t5  -  1],  y[t6  -  1],  y[t7  -  1], 

y[t8  -  1] 

tempx  =  1/8.0  *  (txl  +  tx2  +  tx3  +  tx4  +  tx5  +  tx6  +  tx7 

+  tx8 ) 

tempy  =  1/8.0  *  (tyl  +  ty2  +  ty3  +  ty4  +  ty5  +  ty6  +  ty7 

+  ty8) 

if (tempx  <  0.0): 

e  16  AOAp  =  e  16c  11 
e  16  AAp  =  e  16c_22 
else : 

e  16  AOAp  =  e  16c  22 
e  16  AAp  =  e  16c  11 

if (trip_e_25c_ll==0) : 

if  e  25c  11  in  chec: 
trip  e  25c  11  =  1 
c  146  el  =  num  el [m] 

tl,  t2,  t3,  t4  =  nodel [c_146_el  -  1],  node2 [c_146_el  - 
1],  node3 [c_146_el  -  1],  node4 [c_146_el  -  1] 

t5,  t6,  t7,  t8  =  node5 [c_146_el  -  1],  node6 [c_146_el  - 
1],  node7 [c_146_el  -  1],  node8 [c_146_el  -  1] 

txl,  tx2,  tx3,  tx4  =  x[tl  -  1],  x[t2  -  1],  x[t3  -  1], 

x[t4  -  1] 

tx5,  tx6,  tx7,  tx8  =  x[t5  -  1],  x[t6  -  1],  x[t7  -  1], 

x [ 1 8  -  1] 

tyl,  ty2 ,  ty3,  ty4  =  y[tl  -  1],  y[t2  -  1],  y[t3  -  1], 

y[t4  -  1] 

ty5 ,  ty6,  ty7,  ty8  =  y[t5  -  1],  y[t6  -  1],  y[t7  -  1], 

y[t8  -  1] 

tempx  =  1/8.0  *  (txl  +  tx2  +  tx3  +  tx4  +  tx5  +  tx6  +  tx7 

+  tx8) 

tempy  =  1/8.0  *  (tyl  +  ty2  +  ty3  +  ty4  +  ty5  +  ty6  +  ty7 

+  ty8) 

if (tempx  <  0.0): 

e_2  5  AOAp  =  e  2  5c  11 
e  25  AAp  =  e  25c  22 
else : 

e  25  AOAp  =  e  25c  22 
e  25  AAp  =  e  25c  11 

if (trip_e_26c_ll==0)  : 

if  e  26c  11  in  chec: 
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1] ,  node3 [c_146_el 
1] ,  node7 [c_146_el 
x[t4  -  1] 
x [ 1 8  -  1] 
y[t4  -  l] 
y[t8  -  l] 

+  tx8 ) 

+  ty8) 


trip  e  26c  11  =  1 
c  146  el  =  num  el [m] 


tl. 

t2,  t3,  t4 

=  nodel [c 

146  el 

- 

i] , 

node2 

[c_14  6_ 

el 

1] , 

node4 [c  li 

56  el 

-  1] 

t5 , 

t6,  t7,  t8 

=  node5 [c 

146  el 

- 

i] , 

node6 

[c_14  6_ 

el 

1]  , 

node8 [c  li 

5  6_el 

-  1] 

txl , 

tx2,  tx3. 

tx4  = 

x  [tl 

-  1], 

X 

[t2  - 

-  1], 

x  [t3  - 

1]  , 

tx5 , 

tx6,  tx7. 

tx8  = 

x  [t5 

-  1], 

X 

[t6  - 

-  1], 

x  [t7  - 

1]  , 

tyl. 

ty2 ,  ty3 , 

ty4  = 

y  [tl 

-  1], 

y 

[t2  - 

-  1], 

y  [  1 3  - 

1]  , 

ty5. 

ty6,  tyl, 

ty8  = 

y  [t5 

-  1], 

y 

[t6  - 

-  1], 

y[t7  - 

1]  , 

tempx  =  1/8.0  *  (txl  +  tx2  +  tx3  +  tx4  +  tx5  +  tx6  +  tx7 

tempy  =  1/8.0  *  (tyl  +  ty2  +  ty3  +  ty4  +  ty5  +  ty6  +  ty7 

if (tempx  <  0.0): 

e  26  AOAp  =  e  26c  11 
e  26  AAp  =  e  26c  22 
else : 

e  26  AOAp  =  e  26c  22 
e  26  AAp  =  e  26c  11 


m  =  m  +  1 


##  the  crack  nodes  on  edges  are  added  so  that  no  additional  equations  are 
required . 

e  2526  =  e  2526  +  [e  25  AOAp ,  e  2 6  AOAp ,  e  2 5  AAp ,  e  2 6  AAp ] 

e  1526  =  e  1526  +  [e  15  AOAp ,  e  2 6  AOAp ,  e  1 5  AAp ,  e  2 6  AAp ] 

e  1626  =  e  1626  +  [e  16  AOAp,  e_26  AOAp,  e  16  AAp,  e  26  AAp] 

## - - - - - - - ---r - r--r - ---r - 

def  f ace_constraints ( )  : 
k,  m  =  0,0 

while  k  in  range (len(fp  12)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  ' \n ' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  12[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  12 [ k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  1  and  2  are  written' 

## - 

k, m  =  0,0 

while  k  in  range (len(fp  34)): 
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m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  34[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  34 [ k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  4)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  3  and  4  are  written' 

## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  12c  BDp) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BDp[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BDp [k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  1  BD  and  2  are  written' 

## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  12c  BODp) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BODp[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BODp [ k+1 ])+', '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 
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output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  1  BOD  and  2  are  written' 

## - 

k, m  =  0,0 

while  k  in  range (len(fp  56)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  56[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  56[k+l])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  6)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  5  and  6  are  written' 

## - 

## - 

def  corner_constraints ( )  : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (cl46) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  2)+', '  +'  '+  str(m+l)+', '+'  ’+str(2.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (c236) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +'  '+  str(m+l)+', '+'  ’+str(-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  ’+str(2.0)  +  ' \n ' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 
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while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(3)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c245)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_6)+','  +' 

output_l .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(4)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(cl45)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_2)+','  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_6)+','  +' 

output_l .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(4)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c235)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+','  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_6)+','  +' 

output_l .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(5)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(cl35)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_2)+','  +' 


'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )+','+ '  '+str(-1.0)  +  ' \n 

+  str (m+1 )+','+ '  '+str(2.0)  +  '\n' 


' +  str (m+1 ) + ' , ' + ' 

' +str (1.0)+' 

1  \n ' 

' +  str (m+1 ) + ' , ' + ' 

' +str (-1.0) 

+  ' 

+  str (m+1 ) + ' , ' + ' 

'  +str (2.0)  + 

'  \n 

+  str (m+1 ) + ' , ' + ' 

' +str (2.0)  + 

'  \n 

' +  str (m+1 ) + ' , ' + ' 

' +str (1.0)+' 

1  \n  1 

' +  str (m+1 ) + ' , ' + ' 

1 +str (-1.0) 

+  ' 

+  str (m+1 ) + ' , ' + ' 

1 +str (2.0)  + 

'  \n 

+  str (m+1 ) + ' , ' + ' 

1  +str (2.0)  + 

'  \n 

'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )+','+ '  '+str(-1.0)  +  ' \n 

+  str (m+1 )+','+ '  '+str(2.0)  +  '\n' 
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output_l .write (strgg) 


strgg  =  ' 

'  +  str (c  4 ) + ' , '  + ' 

' +  str (m+1 ) + ' , ' + ' 

'  +str (2.0)  + 

'  \n 

output  1 . write ( strgg) 

strgg  =  ' 

'  +  str (c  6) + ' , '  + ' 

' +  str (m+1 )  +  ' ,  '  +  ' 

'  +str (2.0)  + 

'  \n 

output_l .write (strgg) 
m  =  m  +  1 


m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (cl36) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +'  '  +  str(m+l)+', '+'  '+str(-1.0)  +  ' \n ' 


output_l .write (strgg) 


strgg  =  ' 

'  +  str (c  2 ) + ' , '  + ' 

' +  str (m+1 )  +  '  ,  '  +  ' 

'  +str (2.0)  + 

'  \n 

output  1 . write ( strgg) 

strgg  =  ' 

'  +  str (c  4 ) + ' , '  + ' 

' +  str (m+1 )  +  ' ,  '  +  ' 

'  +str (2.0)  + 

'  \n 

output_l .write (strgg) 
m  =  m  +  1 


print  '  Corner  Constraints  are  written  -  No  outer  layers ' 

# - 

## - 

def  edge_constraints ( )  : 

k, m  =  0,0 

while  k  in  range (len (e  1626)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (e  1626[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (e  1 62 6 [ k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  16  and  26' 
k, m  =  0,0 

while  k  in  range (len (e  1526)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 
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strgg  =  '  '  +  str(e  1526 [k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  1526 [k+1] ) + ' , '  +'  '+  str (m+1 '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  ;=?''  +  str(c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  6)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  15  and  26' 
k, m  =  0,0 

while  k  in  range (len (e  2526)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  2526[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  2526 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  6)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  25  and  26' 
k,  m  =  0,0 

while  k  in  range (len (e_3546) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  3546[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  354 6 [ k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  6)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
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m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  35  and  46' 
k, m  =  0,0 

while  k  in  range (len (e  4546)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  4546 [k] ) +  ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  4546  [k+1] ) +  ' ,  '  +'  '+  str (m+1 )  +  ','  +  '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  6)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  45  and  46' 
k,  m  =  0,0 

while  k  in  range (len (e_3646) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  3646[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  3646 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  36  and  46' 
k, m  =  0,0 

while  k  in  range (len (e  1424)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  1424[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 
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strgg  =  '  '  +  str (e  1424 [k+1] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  14  and  24' 
k, m  =  0,0 

while  k  in  range (len (e_2324) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (e  2324[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (e  2324  [k+1]  )  +  ',  '  +'  '+  str (m+1 )  +  ','  + '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  23  and  24' 
k, m  =  0,0 

while  k  in  range (len (e  1324)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (e  1324[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (e  1324  [k+1]  )  +  ',  '  +'  '+  str (m+1 )  +  ','  + '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  13  and  24' 

## - 

## - 
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def  center_constraints ( )  : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  1)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  2)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  3)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  5)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  6)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

print  '  Face  Center  Constraints  are  written' 

## - 

##  CODE  STARTS  FOR  LUMPED  INNER  LAYERS  WITH  ZERO  ORIENTATION 

## - 

def  corner  constraints  lump() : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (cl46) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  21)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +'  '+  str(m+l)+', '+'  *+str(1.0)  +  '\n' 
output_l .write (strgg) 
m  =  m  +  1 
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m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(3)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c236)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +' 

output_l .write (strgg) 

m  =  m  +  1 


'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )+','+ '  '+str(-1.0)  +  ' \n ' 

'+  str (m+1 )+','+ '  '+str(2.0)  +  '\n' 


m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(5)  +  '\n' 
output_l .write (strgg) 
strgg  =  '  '  +  str(cl36)  +  ',  ' 

output_l .write (strgg) 
strgg  =  '  '  +  str(c246)  +  ',  ' 

output_l .write (strgg) 
strgg  =  '  '  +  str (c_21) + ' , ' 

output_l .write (strgg) 
strgg  =  '  '  +  str (c_22 ) + ' , ' 

output_l .write (strgg) 
strgg  =  '  '  +  str(c_4)+',' 

output_l .write (strgg) 
m  =  m  +  1 


'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'  '+  str (m+1 )+','+ '  '+str(-1.0)  +  '\n' 

'  '+  str (m+1 )+','+ '  '+str(1.0)  +  '\n' 

'  '+  str (m+1 )+','+ '  '+str(1.0)  +  '\n' 

'+  str (m+1 )  +  ','  + '  '+str(2.0)  +  ' \n  ' 


m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(3)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c245)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_6)+','  +' 

output_l .write (strgg) 

m  =  m  +  1 


'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )  +  ','  + '  '+str(-1.0)  +  ' \n  ' 

'+  str (m+1 )+','+ '  '+str(2.0)  +  '\n' 


m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(5)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (cl45) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  +  '\n' 

output_l .write (strgg) 
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strgg  =  ' 

'  +  str (c  21) + ' , '  + ' 

' +  str (m+1 )  +  '  ,  '  +  ' 

'  +str (1.0)  + 

'  \n 

output  1 . write ( strgg) 

strgg  =  ' 

'  +  str (c  22 ) + ' , '  + ' 

' +  str (m+1 )  +  '  ,  '  +  ' 

'  +str (1.0)  + 

'  \n 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  6)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (c235) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  6)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  +  ' \n ' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(6)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (cl35) + ' , '  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +'  '+  str(m+l)+', '+'  '+str(-1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  21)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 


output_l .write (strgg) 


strgg  =  ' 

'  +  str (c  4 ) + ' , '  + ' 

' +  str (m+1 )  +  '  ,  '  +  ' 

' +str (2.0)  + 

'  \n 

output  1 . write ( strgg) 

strgg  =  ' 

'  +  str (c  6) + ' , '  + ' 

' +  str (m+1 ) + ' , ' + ' 

' +str (2.0)  + 

'  \n 

output_l .write (strgg) 
m  =  m  +  1 


print  '  Lumped  -  Corner  Constraints  are  written' 

## - 

## - 

def  edge  constraints  lump() : 

k, m  =  0,0 

while  k  in  range (len (e  1626)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 
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strgg  =  '  '  +  str(e  1 62 6 [ k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  1626 [k+1 ] ) + ' , '  +'  '+  str (m+1 '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  ;=?''  +  str(c  21)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(1.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  16  and  26' 
k, m  =  0,0 

while  k  in  range (len (e  1526)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(5)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  1526[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  1526 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  21)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  6)+', '  +'  '+  str(m+l)+', '+'  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  15  and  26' 
k, m  =  0,0 

while  k  in  range (len (e_2526) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  2526[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 )  +  ' \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  2526 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  '\n' 

output_l .write (strgg) 


229 


strgg  =  '  '  +  str(c  6)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  25  and  26' 
k,  m  =  0,0 

while  k  in  range (len (e_3546) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  3546[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  3546 [k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  6)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  35  and  46' 
k, m  =  0,0 

while  k  in  range (len (e  4546)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  4546[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  4546 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  6)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  45  and  46' 
k, m  =  0,0 

while  k  in  range (len (e_3646) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
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output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  3646[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 )  +  ' \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  3646 [k+1] ) +' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  36  and  46' 
k, m  =  0,0 

while  k  in  range (len (e  1424)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  1424[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  1424 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  21)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  14  and  24' 
k, m  =  0,0 

while  k  in  range (len (e_2324) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  2324[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  2324 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
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m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  23  and  24' 
k, m  =  0,0 

while  k  in  range (len (e  1324)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(5)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (e  1324[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (e  1324 [k+1] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  21)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  22)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Edge  constraints  are  written  for  13  and  24' 

## - 

## - 

def  center  constraints  lump() : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  3)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  11)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  22)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 
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m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 


strgg  =  ' 

'  +  str (c  12 ) + ' , '  + ' 

' +  str (m+1 ) + ' , ' + ' 

' +str (1.0)+ 

output  1 . write ( strgg) 

strgg  =  ' 

'  +  str (c  21) + ' , '  + ' 

' +  str (m+1 ) + ' , ' + ' 

' +str (1.0) 

output_l .write (strgg) 
m  =  m  +  1 


m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 


strgg  =  ' 

'  +  str (c  5) + ' , '  + ' 

' +  str (m+1 )  +  '  ,  '  +  ' 

' +str (1.0)+' 

output  1 . write ( strgg) 

strgg  =  ' 

'  +  str (c  6) + ' , '  + ' 

' +  str (m+1 ) + ' , ' + ' 

' +str (1.0)  + 

output_l .write (strgg) 
m  =  m  +  1 


print  '  Lumped  -  Face  Center  Constraints  are  written' 

## - 

def  face  constraints  lump() : 

k, m  =  0,0 

while  k  in  range (len(fp  12)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  12[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  12[k+l])+','  +'  '+  str (m+1 )+','+ '  ' 


1.0)  +  ' \n ' 


\n  ' 


output_l .write (strgg) 

strgg  =  '  '  +  str (c  21)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  22)+', '  +' 


'+  str (m+1 )+','+ '  '+str(l 

'+  str (m+1 )+','+ '  '+str(l 


\n  ' 


##- 


output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Face  Constraints  for  faces  1  and  2  are  written' 
k, m  =  0,0 

while  k  in  range ( len ( fp_34 )) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output  1 . write ( strgg) 


'  \n  ' 

+  '  \n' 


\n ' 

'  \n  ' 


+  str  ( - 

.0)  + 

.0)  + 


233 


strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  34[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  34[k+l])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Face  Constraints  for  faces  3  and  4  are  written' 

## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  12c  BDp) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BDp[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BDp [k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  21)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  22)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Face  Constraints  for  faces  3  and  4  are  written' 

## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  12c  BODp) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BODp[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BODp [ k+1 ])+', '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  21)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
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strgg  =  '  '  +  str (c  22)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Lumped  -  Face  Constraints  for  faces  3  and  4  are  written' 

## - 

k,  m  =  0,0 

while  k  in  range (len(fp  56)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  56[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  56[k+l])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  6)+', '  +'  '+  str(m+l)+', '+'  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  5  and  6  are  written' 

## - 

##  constraint  equations  for  outerlayer  90  degree  failure. 

##  CODE  STARTS  FOR  OUTER  LAYER, 
def  f ace_constraints_outer ( ) : 
k, m  =  0,0 

while  k  in  range (len(fp  12)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  12[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  12[k+l])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_2)+','  +'  '+  str (m+1 )+','+ '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  1  and  2  are  written' 

## - 

k, m  =  0,0 

while  k  in  range (len(fp  34)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
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output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  34[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  3 4 [ k+ 1 ] )  +  ' ,  '  +'  '+  str (m+1 )  +  ','  +  '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  3  and  4  are  written' 

## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  12c  BDp) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BDp[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BDp [ k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  1  BD  and  2  are  written' 

## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  12c  BODp) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BODp[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  12c  BODp [ k+1 ])+', '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 
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print  '  Face  Constraints  for  faces  1  BOD  and  2  are  written' 

## - 

k,  m  =  0,0 

while  k  in  range (len(fp  56)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(fp  56[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(fp  56[k+l])+','  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  61)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  62)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  *+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  5  and  6  are  written' 

## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  56c  BDp) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(f  56c  BDp[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  56c  BDp [k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  61)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  62)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  5  C  BD  and  6  C  are  written' 

## _ 

k,  m  =  0,  0 

while  k  in  range (len(f  56c  BODp) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
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output_l .write (strgg) 

strgg  =  '  '  +  str(f  56c  BODp [ k] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(f  56c  BODp [ k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ ' 

' +str (-1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  61)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  62)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Face  Constraints  for  faces  5  C  BOD  and  6  C  are  written' 

## - 

## - 

def  center_constraints_outer ( ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  1)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  2)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  3)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  51)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  62)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range (3) : 
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strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(2)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(c  52)+','  +'  '+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  61)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  +  '\n' 

output_l .write (strgg) 
m  =  m  +  1 

print  '  Face  Center  Constraints  are  written' 

## - 

## - 

def  edge_constraints_outer ( ) : 

k,  m  =  0,0 

while  k  in  range (len (e  1626)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (e  1626[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (e  1626 [k+1 ] ) + ' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)+', '  +'  '+  str(m+l)+', '+'  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  16  and  26' 
k, m  =  0,0 

while  k  in  range (len (e  1526)): 
m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(5)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str (e  1526[k])+','  +'  '+  str (m+1 )+','+ ' 

' +str ( 1 . 0 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (e  1526 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  2)+', '  +'  '+  str(m+l)+', '+'  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  61)+', '  +'  '+  str(m+l)+', '+'  '+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c  62)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 
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output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  15  and  26' 
k, m  =  0,0 

while  k  in  range (len (e  2526)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  2526[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  2526 [k+1] ) +' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  61)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  *+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  62)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  25  and  26' 
k, m  =  0,0 

while  k  in  range (len (e_3546) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(5)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  3546[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  354 6  [ k+1 ] )  +  '  ,  '  +'  '+  str (m+1 )  +  ','  + '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  61)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  62)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  35  and  46' 
k, m  =  0,0 
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while  k  in  range (len (e  4546)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  4546[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  4546 [k+1] ) +' , '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  61)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  '+str(1.0)  + 

'  \n  ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  62)+', '  +'  '+  str(m+l)+', '+'  ’+str(1.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  45  and  46' 
k, m  =  0,0 

while  k  in  range (len (e_3646) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  3646[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  3646  [k+1] )  +  ',  '  +'  '+  str (m+1 )  +  ','  + '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  36  and  46' 
k,  m  =  0,0 

while  k  in  range (len (e  1424)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  1424[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  1424 [k+1] )+', '  +'  '+  str (m+1 )+','+ '  '+str(- 

1.0)  +  ' \n ' 
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output_l .write (strgg) 

strgg  =  '  '  +  str(c  2)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  14  and  24' 
k, m  =  0,0 

while  k  in  range (len (e_2324) ) : 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(3)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  2324[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  2324 [k+1] )  +  '  ,  '  +'  '+  str (m+1 )  +  ','  + '  '+str(- 

1.0)  +  ' \n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  '+str(2.0)  + 

'  \n  ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  23  and  24' 
k, m  =  0,0 

while  k  in  range (len (e  1324)): 
m  =  0 

while  m  in  range (3) : 

strgg  =  ' *Equation\n ' 
output_l .write (strgg) 
strgg  =  str(4)  +  '\n' 
output_l .write (strgg) 

strgg  =  '  '  +  str(e  1324[k])+','  +'  '+  str (m+1 )+','+ ' 

'  +str ( 1 . 0 )  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(e  1324 [k+1] )  +  ',  '  +'  '+  str (m+1 )  +  ','  + '  '+str(- 

1.0)  +  ' \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  2)  +  ',  '  +'  '+  str(m+l)  +  ',  '  +  '  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +'  '+  str(m+l)+', '+'  ’+str(2.0)  + 

'  \n ' 

output_l .write (strgg) 
m  =  m  +  1 
k  =  k  +  2 

print  '  Edge  constraints  are  written  for  13  and  24' 


## - 

def  corner_constraints_outer ( ) : 
m  =  0 


242 


while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(3)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(cl46)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_2)+','  +' 

output_l .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(3)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c236)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +' 

output_l .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(4)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c245)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c_61 ) + ' , '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c_62 ) + ' , '  +' 

output_l .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(5)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(cl45)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_2)+','  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c_61 ) + ' , '  +' 

output_l .write (strgg) 


'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )  +  ','  +  '  '+str(-1.0)  +  '  \n 

'+  str (m+1 )+','+ '  '+str(2.0)  +  '\n' 


'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )  +  ','  +  '  ’+str(-1.0)  +  '  \n 

'+  str (m+1 )+','+ '  '+str(2.0)  +  '\n' 


'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )  +  ','  + '  '+str(-1.0)  +  '  \n 

'+  str (m+1 )+','+ '  '+str(1.0)  +  '\n' 

'+  str (m+1 )+','+ '  '+str(1.0)  +  '\n' 


'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )  +  ','  + '  ’+str(-1.0)  +  '  \n 

'+  str (m+1 )+','+ '  ' +str(2.0)  +  ' \n' 

'+  str (m+1 )+','+ '  '+str(1.0)  +  '\n' 
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strgg  =  '  '  +  str (c_62 ) + ' , '  +' 

output_l .write (strgg) 
m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(5)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c235)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c_61 ) + ' , '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c_62 ) + ' , '  +' 

output_l .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(6)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(cl35)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_2)+','  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c_61 ) + ' , '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str (c_62 ) + ' , '  +' 

output_l .write (strgg) 

m  =  m  +  1 

m  =  0 

while  m  in  range  (3)  : 

strgg  =  ' *Equation\n ' 

output_l .write (strgg) 

strgg  =  str(4)  +  '\n' 

output_l .write (strgg) 

strgg  =  '  '  +  str(cl36)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c246)+', '  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c_2)+','  +' 

output_l .write (strgg) 

strgg  =  '  '  +  str(c  4)+', '  +' 

output_l .write (strgg) 

m  =  m  +  1 


'+  str (m+1 )+','+ '  '+str(1.0)  +  '\n' 


'+  str (m+1 )+','+ '  ' +str ( 1 . 0 ) + ' \n ' 

'+  str (m+1 )  +  ','  +  '  ’+str(-1.0)  +  '  \n 

'+  str (m+1 )+','+ '  '+str(2.0)  +  '\n' 

'+  str (m+1 )+','+ '  '+str(1.0)  +  '\n' 

'+  str (m+1 )+','+ '  '+str(1.0)  +  '\n' 


+  str (m+1 ) + ' , ' + ' 

' +str (1.0)+' 

\n  ' 

+  str (m+1 ) + ' , ' + ' 

' +str (-1.0) 

+  '  \n 

str (m+1 ) + ' , ' + ' 

' +str (2.0)  + 

'  \n ' 

str (m+1 ) + ' , ' + ' 

' +str (2.0)  + 

'  \n  ' 

+  str (m+1 ) + ' , ' + ' 

' +str (1.0)  + 

'  \n  ' 

+  str (m+1 ) + ' , ' + ' 

' +str (1.0)  + 

'  \n  ' 

' +  str (m+1 ) + ' , ' + ' 

' +str (1.0)+' 

1  \n ' 

' +  str (m+1 ) + ' , ' + ' 

1 +str (-1.0) 

+  ' 

+  str (m+1 ) + ' , ' + ' 

1  +str (2.0)  + 

'  \n 

+  str (m+1 ) + ' , ' + ' 

' +str (2.0)  + 

'  \n 
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print 


Corner  Constraints  are  written  -  No  outer  layers 


# - 

def  contact_surf aces  ( )  : 

global  crack  1A  elem,  crack  IB  elem 
global  crack  2A  elem,  crack  2B  elem 

crack  1A  elem,  crack  2A  elem  =  [],  [] 
crack  IB  elem,  crack  2B  elem  =  [],  [] 

j  =  0 

while  j  in  range ( len (num  el)): 


check  =  num  el 

[j] 

tl. 

t2,  t3,  t4 

=  nodel [check  - 

1],  node2 [check  - 

1]  , 

node3 [check 

1] , 

node4 [check  -  1] 

t5 , 

t6,  t7,  t8 

=  node5 [check  - 

1],  node6 [check  - 

1]  , 

node7 [check 

1] , 

node8 [check  -  1  ] 

txl , 

tx2,  tx3. 

tx4 

=  x  [  1 1  -  1] 

,  x  [t2  -  1  ]  ,  x  [t3  - 

1] 

,  x  [  1 4 

-  1] 

tx5 , 

tx6,  tx7. 

tx8 

=  x[t5  -  1] 

,  x [t6  -  1 ] ,  x  [ 1 7  - 

1] 

,  x  [  1 8 

-  1] 

tyl. 

ty2 ,  ty3. 

ty4 

=  y [tl  -  1] 

,  y  [t2  -  1]  ,  y  [t3  - 

1] 

,  y[t4 

-  1] 

ty5. 

ty6,  ty7. 

ty8 

=  y[t5  -  l] 

,  y [t6  -  1] ,  y [t7  - 

1] 

,  y  [t8 

-  1] 

tzl , 

tz2,  tz3. 

tz4 

=  z [ t l  -  1] 

,  z  [t2  -  1]  ,  z  [t3  - 

1] 

,  z  [t4 

-  1] 

tz5 , 

tz6,  tz7. 

tz8 

=  z[t5  -  1] 

,  z [t6  -  1 ] ,  z  [ 1 7  - 

1] 

,  z  [  1 8 

-  1] 

checkl  =  [txl. 

tx2 , 

tx3,  tx4. 

tx5,  tx6,  tx7,  tx8] 

tempx  =  1/8.0  *  (txl  +  tx2  +  tx3  +  tx4  +  tx5  +  tx6  +  tx7  +  tx8) 

tempy  =  1/8.0  *  (tyl  +  ty2  +  ty3  +  ty4  +  ty5  +  ty6  +  ty7  +  ty8) 

tempz  =  1/8.0  *  (tzl  +  tz2  +  tz3  +  tz4  +  tz5  +  tz6  +  tz7  +  tz8) 

ck  z  2a  =  ck  z  2  -  crack  layer  thickness  /  seed  6 

ck  z  3a  =  ck  z  3  +  crack  layer  thickness  /  seed  6 

ck  z  la  =  ck  z  1  +  crack  layer  thickness  /  seed  6 

ck  z  4a  =  ck  z  4  -  crack  layer  thickness  /  seed  6 

ck_y_la  =  3.0*b/8.0 

if  (tempx  <  xab)  and  (tempz  >  ck  z  la)  and  (tempz  <  ck  z  2a)  and 
(abs (tempy) <ck_y_la) : 

if  ck  z  2  in  checkl : 

pass 
else : 

if  xab  in  checkl: 

crack  element  faces (cck2=checkl ) 

crack  1A  elem  =  crack  1A  elem  +  [check,  face  number] 
elif (tempx  >  xab)  and  (tempz  >  ck  z  la)  and  (tempz  <  ck  z  2a)  and 
(abs (tempy) <ck_y_la) : 

if  ck  z  2  in  checkl: 

pass 
else : 

if  xab  in  checkl: 

crack  element  faces (cck2=checkl ) 

crack  IB  elem  =  crack  IB  elem  +  [check,  face  number] 
elif  (tempx  <  xab)  and  (tempz  >  ck  z  3a)  and  (tempz  <  ck  z  4a)  and 
(abs (tempy) <ck_y_la) : 

if  ck  z  3  in  checkl: 

pass 
else : 

if  xab  in  checkl: 

crack  element  faces (cck2=checkl ) 

crack  2A  elem  =  crack  2A  elem  +  [check,  face  number] 
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elif (tempx  >  xab)  and  (tempz  >  ck  z_3a)  and  (tempz  <  ck  z  4a)  and 
(abs (tempy) <ck_y_la) : 

if  ck  z_3  in  checkl : 

pass 
else : 

if  xab  in  checkl: 

crack  element  faces (cck2=checkl ) 

crack  2B  elem  =  crack  2B  elem  +  [check,  face  number] 

j  =  j  +  1 

##  writing  the  element  based  surfaces, 
j  =  0 

strgg  =  '*Surface,  TYPE=ELEMENT ,  NAME=CRACK1A,  internal\n' 
output_l .write (strgg) 

while  j  in  range (len (crack  1A  elem)) : 

strgg  =  str (crack  1A  elem[j])+',  '+crack  1A  elem [ j +1 ] + ' \n ' 
output_l .write (strgg) 
j  =  j  +  2 

j  =  0 

strgg  =  '*Surface,  TYPE=ELEMENT ,  NAME=CRACK1B,  internal\n' 
output_l .write (strgg) 

while  j  in  range (len (crack  IB  elem)): 

strgg  =  str (crack  IB  elem[j])+',  '+crack  IB  elem [ j +1 ] + ' \n ' 
output_l .write (strgg) 
j  =  j  +  2 


j  =  0 

strgg  =  '*Surface,  TYPE=ELEMENT ,  NAME=CRACK2A,  internal\n' 
output_l .write (strgg) 

while  j  in  range (len (crack^2A  elem)) : 

strgg  =  str (crack  2A  elem[j])+',  '+crack  2A  elem [ j +1 ] + ' \n ' 
output_l .write (strgg) 
j  =  j  +  2 

j  =  0 

strgg  =  '*Surface,  TYPE=ELEMENT ,  NAME=CRACK2B,  internal\n' 
output_l .write (strgg) 

while  j  in  range (len (crack  2B  elem)): 

strgg  =  str (crack  2B  elem[j])+',  '+crack  2B  elem [ j +1 ] + ' \n ' 
output_l .write (strgg) 
j  =  j  +  2 


def  crack_contact ( )  : 

strgg  =  ' *CONTACT  PAIR,  INTERACTION  =  CRACK1AB,  SMALL  SLIDING,' 
strgg  =  strgg  +  'TYPE  =  SURFACE  TO  SURFACE\n ' 
output_l .write (strgg) 

strgg  =  ' sublami  CRACK1A,  sublami  CRACKlB\n' 
output_l .write (strgg) 

strgg  =  '*SURFACE  INTERACTION,  NAME=CRACKlAB\n ' 
output_l .write (strgg) 

##  strgg  =  '*SURFACE  BEHAVIOR,  PENALTY\n ' 

##  output_l . write ( strgg) 

strgg  =  ' *FRICTION\n ' 
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output_l .write (strgg) 
strgg  =  str ( 0 . 4 ) + ' \n ' 
output_l .write (strgg) 

strgg  =  ' *CONTACT  PAIR,  INTERACTION  =  CRACK2AB,  SMALL  SLIDING,' 
strgg  =  strgg  +  'TYPE  =  SURFACE  TO  SURFACE\n ' 
output_l .write (strgg) 

strgg  =  ' sublami  CRACK2B,  sublami  CRACK2A\n' 
output_l .write (strgg) 

strgg  =  '*SURFACE  INTERACTION,  NAME=CRACK2AB\n ' 
output_l .write (strgg) 

##  strgg  =  '*SURFACE  BEHAVIOR,  PENALTY\n ' 

##  output_l . write ( strgg) 

strgg  =  ' *FRICTION\n ' 
output_l .write (strgg) 
strgg  =  str ( 0 . 4 ) + ' \n ' 
output_l .write (strgg) 


## - 

## - 

def  crack  element  faces (cck2) : 
global  face  number 

cck21,  cck22,  cck23,  cck24  =  cck2[0],  cck2[l],  cck2[2],  cck2[3] 
cck25,  cck26,  cck27,  cck28  =  cck2[4],  cck2[5],  cck2[6],  cck2[7] 
if  (cck21  ==  xab)  and  (cck22  ==  xab)  and  (cck25  ==  xab)  and  (cck26  == 
xab)  : 


face  number  =  ' 

S3  ' 

elif  (cck21  ==  xab) 

and 

(cck22  == 

xab) 

face  number  =  ' 

SI  ' 

elif  (cck25  ==  xab) 

and 

(cck26  == 

xab) 

face  number  =  ' 

S2  ' 

elif  (cck22  ==  xab) 

and 

(cck23  == 

xab) 

face  number  =  ' 

S4  ' 

elif  (cck23  ==  xab) 

and 

(cck24  == 

xab) 

face  number  =  ' 

S5  ' 

elif  (cck21  ==  xab) 

and 

(cck24  == 

xab)  : 


xab) 

and 

(cck23 

==  xab) 

and 

(cck24 

xab) 

and 

(cck27 

==  xab) 

and 

(cck28 

xab) 

and 

(cck26 

==  xab) 

and 

(cck27 

xab) 

and 

(cck27 

==  xab) 

and 

(cck28 

xab) 

and 

(cck25 

==  xab) 

and 

(cck28 

face  number  =  ' S 6 ' 


#- 

## 


def  gap_element ( )  : 

global  crack  1A  elem,  crack  IB  elem 

global  crack  2A  elem,  crack  2B  elem 

global  crack  1A  node,  crack  IB  node 

global  crack  2A  node,  crack  2B  node 

global  crack  1AB  nodes,  crack  2AB  nodes 


crack  1A  elem,  crack  2A  elem  =  [],  [] 

crack  IB  elem,  crack  2B  elem  =  [],  [] 

crack_lA_node,  crack_2A_node  =  [],  [] 

crack_lB_node,  crack_2B_node  =  [],  [] 

crack  1AB  nodes,  crack  2AB  nodes  =  [],  [] 

j  =  0 
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while  j  in  range ( len (num  el)): 
check  =  num  e 1 [ j ] 

tl,  t2,  t3,  t4  =  nodel [check  -  1],  node2 [check  -  1],  node3 [check  - 
1] ,  node4 [check  -  1] 

t5,  t6,  t7,  t8  =  node5 [check  -  1],  node6 [check  -  1],  node7 [check  - 
1] ,  node8 [check  -  1] 


txl,  tx2 

,  tx3 , 

tx4  = 

x  [tl  - 

1]  , 

x  [t2  - 

1]  , 

X 

[t3 

- 

1]  , 

x[t4 

-  1] 

tx5,  tx6 

,  tx7 , 

tx8  = 

x  [t5  - 

1]  , 

x  [t6  - 

1]  , 

X 

[  1 7 

- 

1]  , 

x  [  1 8 

-  1] 

tyl,  ty2 

,  ty3. 

ty4  = 

y [tl  - 

1]  , 

y[t2  - 

1]  , 

y 

[t3 

- 

1]  , 

y[t4 

-  1] 

ty5,  ty6 

,  ty7. 

ty8  = 

y[t5  - 

1]  , 

y[t6  - 

1]  , 

y 

[  1 7 

- 

1]  , 

y[t8 

-  1] 

tzl,  tz2 

,  tz3. 

tz4  = 

z  [tl  - 

1]  , 

z  [t2  - 

1]  , 

z 

[t3 

- 

1]  , 

z  [t4 

-  1] 

tz5,  tz6 

,  tz7 , 

tz8  = 

z  [t5  - 

1]  , 

z  [t6  - 

1]  , 

z 

[  1 7 

- 

1]  , 

z  [  1 8 

-  1] 

checkl  = 

[txl. 

tx2 , 

tx3,  tx4 

,  tx5,  tx6 

,  tx7 

r 

tx8  ] 

ncheck  = 

[tl. 

t2 ,  t3 

,  t4,  t5 

,  t6 

,  t7. 

t8  ] 

tempx  = 

1/8.0 

*  (txl 

+  tx2  + 

tx3 

+  tx4 

+  tx5 

+ 

tx6 

+ 

tx7  + 

tx8 ) 

tempy  = 

1/8.0 

*  (tyl 

+  ty2  + 

ty3 

+  ty4 

+  ty5 

+ 

ty6 

+ 

ty7  + 

ty8) 

tempz  = 

1/8.0 

*  (tzl 

+  tz2  + 

tz3 

+  tz4 

+  tz 

,5 

+ 

tz6 

+ 

tz7  + 

tz8 ) 

ck  z  2a  =  ck  z  2  -  crack  layer  thickness  /  seed  6 
ck  z  3a  =  ck  z  3  +  crack  layer  thickness  /  seed  6 
ck  z  la  =  ck  z  1  +  crack  layer  thickness  /  seed  6 
ck  z  4a  =  ck  z  4  -  crack  layer  thickness  /  seed  6 
ck_y_la  =  3.0*b/8.0 

if  (tempx  <  xab)  and  (tempz  >  ck  z  la)  and  (tempz  <  ck  z  2a)  and 
(abs (tempy) <ck_y_la) : 


if 


xab  in  checkl : 

crack  1A  elem  =  crack  1A  elem  +  [check] 
m  =  0 

for  m  in  range (len (checkl) ) : 

if  (abs (checkl [m] -xab) <=shf)  and  (ncheck[m]  not  in 


crack  1A  node) : 


crack  1A  node  =  crack  1A  node  +  [ncheck[ra] ] 


elif (tempx  >  xab)  and  (tempz  >  ck  z  la)  and  (tempz  <  ck  z  2a)  and 
(abs (tempy) <ck_y_la) : 


if 


xab  in  checkl : 

crack  IB  elem  =  crack  IB  elem  +  [check] 
m  =  0 

for  m  in  range (len (checkl) ) : 

if  (abs (checkl [m] -xab) <=shf)  and  (ncheck[m]  not  in 


crack  IB  node) : 


crack  IB  node  =  crack  IB  node  +  [ncheck[m] ] 


elif  (tempx  <  xab)  and  (tempz  >  ck  z  3a)  and  (tempz  <  ck  z  4a)  and 
(abs (tempy) <ck_y_la) : 

if  xab  in  checkl: 

crack  2A  elem  =  crack  2A  elem  +  [check] 
m  =  0 

for  m  in  range (len (checkl) ) : 

if  (abs (checkl [m] -xab) <=shf)  and  (ncheck[m]  not  in 


crack  2A  node) : 


crack  2A  node  =  crack  2A  node  +  [ncheck[m] ] 


elif (tempx  >  xab)  and  (tempz  >  ck  z  3a)  and  (tempz  <  ck  z  4a)  and 
(abs (tempy) <ck_y_la) : 

if  xab  in  checkl: 
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crack  2B  node) : 


crack  2B  elem  =  crack  2B  elem  +  [check] 
m  =  0 

for  m  in  range (len (checkl) ) : 

if  (abs (checkl [m] -xab) <=shf)  and  (ncheck[m]  not  in 

crack  2B  node  =  crack  2B  node  +  [ncheck[m] ] 


j  =  j  +  1 
j  =  0 

while  j  in  range (len (crack  1A  node)) : 
checkl  =  crack  1A  node[j] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (crack  IB  node)) : 
check2  =  crack  IB  node [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if  (abs (tyl-ty2 ) <=shf )  and  (abs (tzl-tz2 ) <=shf ) : 

##  x[checkl  -  1]=  x[checkl  -  1]  -  a/ (seed_l*512) 

##  x[check2  -  1]=  x[check2  -  1]  +  a/ (seed_l*512) 

crack  1AB  nodes  =  crack  1AB  nodes  +  [check2,  checkl] 
m  =  m  +  1 
j  =  j  +  1 

j  =  0 

while  j  in  range (len (crack  2A  node)) : 
checkl  =  crack  2A  node[j] 

txl,  tyl,  tzl  =  x[checkl  -  1],  y[checkl  -  1],  z[checkl  -  1] 
m  =  0 

while  m  in  range (len (crack  2B  node)): 
check2  =  crack  2B  node [m] 

tx2,  ty2,  tz2  =  x[check2  -  1],  y[check2  -  1],  z[check2  -  1] 
if  (abs (tyl-ty2 ) <=shf )  and  (abs (tzl-tz2 ) <=shf ) : 

##  x[checkl  -  1]=  x[checkl  -  1]  -  a/ (seed_l*512) 

##  x[check2  -  1]=  x[check2  -  1]  -  a/ (seed_l*512) 

crack  2AB  nodes  =  crack  2AB  nodes  +  [check2,  checkl] 
m  =  m  +  1 
j  =  j  +  1 

def  gap  elements  written () : 

strgg  =  '**  The  GAP  elements  are  written  herein' 

output_l .write (strgg) 

strgg  =  '*Element,  type=GAPUNI \n ' 

output_l .write (strgg) 

j  =  0 
jj  =  0 

while  j  in  range (len (crack  1AB  nodes) / 2) : 

strgg  =  strfnum  elem+j+l)+',  '+str (crack  1AB  nodes[jj])+  ', 
'+str(crack  1AB  nodes [ j j +1 ])+' \n ' 
output_l .write (strgg) 
jj  =  jj  +  2 
j  =  j  +  1 

k  =  j 

strgg  =  '*Element,  type=GAPUNI\n ' 
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output_l .write (strgg) 
j  =  0 
jj  =  0 

while  j  in  range (len (crack  2AB  nodes) /2): 

strgg  =  strfnum  elem+k+ j +1 ) + ' ,  '+str (crack  2AB  nodes[jj])+ 

'+str (crack  2AB  nodes [ j j +1 ])+' \n ' 
output_l .write (strgg) 
jj  =  jj  +  2 
j  =  j  +  1 

kk  =  j 

strgg  =  '  *Elset,  elset=CRACKlAB,  internal,  generate\n' 
output_l .write (strgg) 

strgg  =  strfnum  elem+l)+',  '+str(num  elem+k)+',  ' +str ( 1 ) + ' \n ' 
output_l .write (strgg) 

strgg  =  '*Elset,  elset=CRACK2AB,  internal,  generate\n' 
output_l .write (strgg) 

strgg  =  strfnum  elem+k+l)+',  '+str(num  elem+2*k)+',  ' +str ( 1 ) + ' \n ' 

output_l .write (strgg) 

print  '  GAP  ELEMENT  PROPERTIES  ARE  WRITTEN' 

strgg  =  '*GAP,  ELSET  =  CRACKlAB\n ' 

strgg  =  strgg  +  '0.0,  -1.0,  0.0,  0.0\n' 

output_l .write (strgg) 

strgg  =  '*GAP,  ELSET  =  CRACK2AB\n ' 

strgg  =  strgg  +  '0.0,  -1.0,  0.0,  0.0\n' 

output_l .write (strgg) 


# - 

## - 

def  rigid_body_modes ( )  : 

strgg  ='**  Boundary  conditions  written\n' 
output_l .write (strgg) 
strgg= ' *Boundary\n ' 
output_l .write (strgg) 


if (lumped  inner  ==  1) : 


## 

strgg  = 

:  '  n  set  6 ' + ' , 

'  +  ' 

' +str ( 1 ) 

+ 

'  + 

str ( 3 ) 

+  1 

1  \n 

## 

output 

1 . write (strgg) 

## 

strgg  = 

:  '  n  set  7 '  +  '  , 

'  +  ' 

'  +str (2 ) 

+ 

'  + 

str (2 ) 

+  1 

1  \n 

## 

output 

1 . write (strgg) 

## 

strgg  = 

:  '  n  set  8 ' + ' , 

'  +  ' 

' +str ( 3 ) 

+ 

'  + 

str ( 3 ) 

+  1 

1  \n 

## 

output 

1 . write (strgg) 

strgg  =  '  n  set  4'  +  ',  '  +  '  '+str(l) 

output_l .write (strgg) 

strgg  =  '  n  set  7'+', '+'  '+str(2) 

output_l .write (strgg) 

strgg  =  '  n  set  6'+', '+'  '+str(2) 

output_l .write (strgg) 


',  '+  '  '+  str  (3)  +  ' \n ' 

',  '+  '  '+  str  (2 )  +  ' \n ' 

', '+  '  '+  str (3) + ' \n ' 


else : 

strgg  =  '  n_set_5 ' + ' , ' + 
output_l .write (strgg) 
strgg  =  '  n  set  2 ' + ' , ' + 
output_l .write (strgg) 


+str(l)  +  ','+  '  '+  str(3)+'\n 

+str(3)  +  ','+  '  '+  str(3)+'\n 
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strgg  =  '  n  set  2'+','+'  '+str(l)  +  '  '+  str(l)+'\n' 

output_l .write (strgg) 

if (outerlayer  ==  1) : 

strgg  =  '  n  set  4'+', '+'  '+str(3)  '+  str(3)+'\n' 

output_l .write (strgg) 
else : 

strgg  =  '  n  set  6'+','+'  '+str(l)  +  '  '+  str(l)+'\n' 

output_l .write (strgg) 

print  'Rigid  body  modes  are  written' 

## - 

## - 

def  loads ( )  : 

if ( (mechanical  ==  1)  and  (lumped  inner  ==  1)) : 


## 

strgg=  ' *Cload  \n' 

## 

output  1 . write ( strgg) 

## 

strgg  =  '  n  set  4 ' + ' , ' + ' 

' +  str ( 3 )  +  ' , ' +  ' 

' +  str ( 

loadcase_3_mag_l ) + ' \n ' 

##  output_l . write ( strgg) 

strgg=  ' *Cload  \n' 
output_l .write (strgg) 

strgg  =  '  n  set  6'  +  ',  '  +  '  '+  str(l)  +  ','+'  '+  str (- 

loadcase_3_mag_2 ) + ' \n ' 

output_l .write (strgg) 


## 

strgg= 

' *Boundary  \n' 

## 

output 

1 . write (strgg) 

## 

strgg  = 

=  '  n  set  4 ' + ' , ' + ' 

'  +  str ( 3 )  +  ' , ,  ' +  ' 

' +  str ( le-5 ) + ' \n 

## 

output 

1 . write (strgg) 

elif ( (mechanical  ==  1)  and  (lumped  inner  ==  0)  and  (outerlayer  ==  0)) : 
strgg=  ' *Cload  \n' 
output_l .write (strgg) 

strgg  =  '  n  set  4'  +  ',  '  +  '  '+  str(3)  +  ','+'  '+  str  (- 

loadcase_3_mag_l ) + ' \n ' 

output_l .write (strgg) 

print  'Mechanical  Loading  only  ' 

elif ( (mechanical  ==1)  and  (outerlayer  ==1) ) : 
strgg=  ' *Cload  \n' 
output_l .write (strgg) 

strgg  =  '  n  set  61'+', '+'  '+  str(l)  +','+'  '+ 

str ( loadcase_3_mag_2 ) + ' \n ' 

output_l .write (strgg) 

strgg  =  '  n  set  62'  +  ',  '  +  '  '+  str(l)  +  ','+'  '  + 

str ( loadcase_3_mag_2 ) + ' \n ' 

output_l .write (strgg) 

print  'Mechanical  Loading  only  ' 


## - 

## - 

from  abaqus  import  * 

from  abaqusConstants  import  * 

from  section  import* 

import  math 

reading  inp  file() 
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APPENDIX  C 


PYTHON  CODE  FOR  T-JOINT  MODEL 

In  this  appendix,  a  computer  code  written  in  Python  language,  for  generating  a  composite 
T-joint  is  listed.  The  program  is  intended  to  run  in  ABAQUS  Version  6.6.  The  entire  script  is 
run  by  executing  the  statement  “execfile(‘  JointtwodefectscompositeA.py’)”  in  an 
ABAQUS  command  window.  The  script  file  has  all  the  required  parameters  to  build  the  model. 
This  includes  material  definition,  laminate  properties,  and  the  joint  dimensions.  Note  that  this 
code  does  not  completely  generate  the  model  as  automating  continuum  shell  generation  is  not 
available  with  ABAQUS  Version  6.6.  Also,  the  boundary  conditions  to  eliminate  rigid  body 
modes  need  to  be  imposed  after  the  model  is  generated. 

Program:  Joint  two  defects  composite  A.py 

##  A  JOINT  THAT  HAS  DEFECTS  ON  THE  BASE  PLATE.  OTHER  DEFECTS 
##  CAN  BE  CREATED. 

from  abaqus  import  * 
from  abaqusConstants  import  * 
import  math 
global  ED,  DT 

## - 

##  CAUTION:  There  are  a  lot  of  input  parameters  involved. 

## - 

##  information  of  the  laminate  that  applies  to  the  base  plate, 

##  vertical  plate  and  the  clips. 

##  loading 
theta  temp  =  -414 

##  theta  temp  -  temperature  loading  range. 
layup_ge  =  [-45,  0,  45,  90,  90,  45,  0,  -45] 

##layup_ge  =  [0,  0,  0,  0,  0,  0,  0,  0] 

temp  =  [ ] 

for  ij  in  range  (6)  : 

temp  =  temp  +  layup  ge 
layup_ge=  temp 
nol  =  len (layup_ge) 
laminate  thickness  =  0.12 
ply  t  =  laminate_thickness/nol 

ply  alt  =  0.004  ##  thickness  of  the  titanium  ply. 

ply  al  =  ply  alt  +  0.01  ##  thickness  of  the  adhesive  layer. 

layup_thic  =  [ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t] 
temp  =  [ ] 

for  ij  in  range  (6)  : 

temp  =  temp  +  layup  thic 
layup  thic  =  temp 

layup_material  =  [0,  0,  0,  0,  0,  0,  0,  0] 
temp  =  [ ] 

for  ij  in  range  (6)  : 

temp  =  temp  +  layup  material 
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layup  material  =  temp 

clip_material  =  [0,  0,  0,  0,  0,  0,  0,  0] 
temp  =  [  ] 

for  ij  in  range (6) : 

temp  =  temp  +  clip  material 
clip  material  =  temp 
##  nos  =  number  of  sections 
nos  =  9 

##  this  is  addded  to  reduce  the  thickness  of  the  vertical  plate. 

layup_ge_v  =  [-45,  0,  45,  90,  90,  45,  0,  -45] 

layup_ge_v_ch  =  [-45,  0,  45,  90,  90,  45,  0,  -45] 

temp  =  [ ] 

for  ij  in  range  (6)  : 
if (ij  ==  0) : 

temp  =  temp  +  layup  ge  v  ch 
else : 

temp  =  temp  +  layup  ge  v 
layup  ge  v  =  temp 

layup_thic_v  =  [ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t] 

layup_thic_v_ch  =  [ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t] 

temp  =  [ ] 

for  ij  in  range  (6)  : 
if (ij  ==  0) : 

temp  =  temp  +  layup  thic  v  ch 
else : 

temp  =  temp  +  layup  thic  v 
layup  thic  v  =  temp 

layup_material_v  =  [0,  0,  0,  0,  0,  0,  0,  0] 

layup_material_v_ch  =  [0,  0,  0,  0,  0,  0,  0,  0] 

temp  =  [ ] 

for  ij  in  range  (6)  : 
if (ij  ==  0) : 

temp  =  temp  +  layup  material  v  ch 
else : 

temp  =  temp  +  layup  material  v 
layup  material  v  =  temp 


##  this  is  addded  to  reduce  the  thickness  of  the  BASE  plate. 

layup_ge_b  =  [-45,  0,  45,  90,  90,  45,  0,  -45] 

layup_ge_b_ch  =  [-45,  0,  45,  90,  90,  45,  0,  -45] 

temp  =  [ ] 

for  ij  in  range (6) : 

if (i j  ==  6) : 

temp  =  temp  +  layup  ge  b  ch 
else : 

temp  =  temp  +  layup  ge  b 
layup_ge_b  =  temp 
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layup_thic_b  =  [ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t] 

layup_thic__b__ch  =  [ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t] 

temp  =  [  ] 

for  ij  in  range (6) : 
if (ij  ==  6)  : 

temp  =  temp  +  layup  thic  b  ch 
else : 

temp  =  temp  +  layup  thic  b 
layup  thic_b  =  temp 

layup_material_b  =  [0,  0,  0,  0,  0,  0,  0,  0] 

layup_material_b_ch  =  [0,  0,  0,  0,  0,  0,  0,  0] 

temp  =  [ ] 

for  ij  in  range (6) : 
if (ij  ==  6) : 

temp  =  temp  +  layup  material  b  ch 
else : 

temp  =  temp  +  layup  material  b 
layup  material  b  =  temp 

##  this  is  added  to  delete  some  of  the  layers  from  the  composite  in 
##  one  of  the  clips,  the  layer  removed  is  described  at  the  end  of  this. 


layup  ge  ch  = 

[-45, 

0, 

45, 

90, 

90, 

45,  0, 

-45] 

len  layup  ch  = 

len (layup  ge 

ch) 

layup  ge  2  = 

[-45, 

0, 

45, 

90, 

90, 

45,  0, 

-45] 

temp  =  [ ] 

for  ij  in  range  (6)  : 
if  (ij  ==  6)  : 

temp  =  temp  +  layup  ge  ch 
else : 

temp  =  temp  +  layup  ge  2 
layup_ge_ch=  temp 
nol  ch  =  len (layup  ge_ch) 

laminate  thickness  ch  =  0.12  -  0.12/nol  *  2  *  len  layup  ch  ##  two  layers 
removed . 

ply  t  ch  =  laminate  thickness  ch/nol  ch 

layup_thic_ch  =  [ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t] 

layup_thic_2  =  [ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t,  ply_t] 

temp  =  [ ] 

for  ij  in  range  (6)  : 
if  (ij  ==  6)  : 

temp  =  temp  +  layup  thic  ch 
else : 

temp  =  temp  +  layup  thic  2 
layup  thic  ch  =  temp 

layup_material_ch  =  [0,  0,  0,  0,  0,  0,  0,  0] 

layup_material_2  =  [0,  0,  0,  0,  0,  0,  0,  0] 

temp  =  [ ] 

for  ij  in  range  (6)  : 
if  (ij  ==  6)  : 

temp  =  temp  +  layup  material  ch 
else : 

temp  =  temp  +  layup  material  2 
layup  material  ch  =  temp 
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##  material  database 
mat  name  =  [0] 


##  NOTE:--  1  psi  =  6.895  k  Pa 
##  material  -  1 


NAME  =  'Graphite' 
temp  =  [1,  NAME] 

Ell,  E22 ,  E33  =  3E7,  1.5E6,  1.5E6 

NU12 ,  NU13,  NU23  =  0.3,  0.3,  0.6 

G12 ,  G13,  G2  3  =  4.E4,  4.E4,  E22/ (2*  (1+NU23) ) 

All,  A22,  A33  =  -2e-7,  1.5e-5,  1.5e-5 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23, 

mat  name  =  mat  name  +  [temp] 


G12 , 


G13, 


G23,  All,  A22 ,  A33] 


##  material  -  2 
NAME  =  'Adhesive' 
temp  =  [2,  NAME] 

Ell,  E22 ,  E33  =  0.3E6,  0.3E6,  0.3E6 

G12 ,  G13,  G23  =  0.1064E6,  0.1064E6,  0.1064E6 

NU12 ,  NU13,  NU23  =  0.41,  0.41,  0.41 

All,  A22 ,  A3 3  =  42e-6,  42e-6,  42e-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 
mat  name  =  mat  name  +  [temp] 


####  material  -  3 
NAME  =  ' Titaniumlayer ' 
temp  =  [3,  NAME] 

EE  =  116E9/6895 . 0 
GG  =  EE/ (2* (1+0.36) ) 

Ell,  E22 ,  E33  =  EE,  EE,  EE 

G12 ,  G13,  G2  3  =  GG,  GG,  GG 

NU12 ,  NU13,  NU23  =  0.36,  0.36,  0.36 

All,  A22 ,  A3 3  =  4.72E-6,  4.72E-6,  4.72E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 
mat  name  =  mat  name  +  [temp] 

## 

####  material  -  4 

NAME  =  'Defect'  ##  for  now  we  use  Aluminum 
temp  =  [3,  NAME] 

EE  =  72.36737E9/6895.0 
GG  =  EE/ (2* (1+0.33) ) 

Ell,  E22 ,  E33  =  EE,  EE,  EE 

G12 ,  G13,  G23  =  GG,  GG,  GG 

NU12 ,  NU13,  NU23  =  0.33,  0.33,  0.33 

All,  A22 ,  A3 3  =  13E-6,  13E-6,  13E-6 

temp  =  temp  +  [Ell,  E22,  E33,  NU12,  NU13,  NU23,  G12,  G13,  G23,  All,  A22,  A33] 
mat  name  =  mat  name  +  [temp] 

##  if  you  need  to  add  more  materials  then  add  before  this  line, 
del  mat  name [mat  name . index ( 0 ) ] 

##  end  of  databa 

## - 


##  information  of  the  BASE  plate. 

base  length  =  6.0  ##  note  the  units  are  in  inches. 
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base_breadth  =  4.5 

a  =  base  length 
b  =  base_breadth 

base  composite  =  1  ##  0  -  homogeneous  material,  1  -  composite 
if (base_composite  ==  0) : 
base  material  =  0 

base  thick  =0.12  ##  the  thickness  of  the  laminate, 

else : 

##  base  plate  composite  lay-up. 
base_layup  =  layup_ge_b 
base  material  =  layup  material  b 
base_t  =  layup_thic_b 
base_thick  =  0 

for  ij  in  range (len (base_t) ) : 

base_thick  =  base^thick  +  basest [ij] 

##  NOTE  THAT  LAYUP  IS  FROM  THE  BOTTOM  OF  THE  LAMINATE 
##  IN  THE  DIRECTION  OF  THE  SWEEP  FOR  THE  EDGE. 

## - 

##  information  of  the  WEB  plate, 
web  length  =  3.5 
web  breadth  =  3.5 

al  =  web  length 
bl  =  web  breadth 

yspacing  =  0.5  ##  this  is  the  vertical  distance  from  which  the 
##  the  displacements  are  measured. 

dist  web  base  =  0.125  ##  distance  btwn  the  base  of  the  web  plate  and 
##  the  base  plate. 

##  position  of  the  bolts., 
bolt  x  =  4 . 5 
bolt_y  =  3.0 

web^composite  =  1  ##  0  -  homogeneous  material,  1  -  composite 

if (web_composite  ==  0) : 
web  material  =  0 
web  thick  =  1.802 
else : 

##  base  plate  composite  lay-up. 
web_layup  =  layup_ge_v 
web  material  =  layup  material_v 
web  t  =  layup  thic  v 
web  thick  =  0 

for  ij  in  range ( len (web  t) ) : 

web  thick  =  web  thick  +  web  t[ij] 

## - - - - - - - 

##  information  of  the  clips 
clip  len  =  1.125 
clip  breadth  =  0.8 
clip  depth  =  2.75 

clip  radi  =  0.120  ##  average  of  the  range. 
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clip  composite  =  1  ##  0  -  homogeneous  material,  1  -  composite 
if  (clip__composite  ==  0): 
clip  material  =  0 
clip  thick  =  1.802 
else : 

##  base  plate  composite  lay-up. 
clip_layup  =  layup_ge 
clip  material  =  clip  material 
clip  t  =  layup  thic 
clip  thick  =  0 

for  ij  in  range (len (clip  t) ) : 

clip  thick  =  clip  thick  +  clip  t[ij] 


cxl,  cyl  = 
cx2,  cy2  = 
cx3,  cy3  = 
cx4,  cy4  = 
cx5,  cy5  = 
cx6,  cy6  = 
cx7,  cy7  = 
cx8,  cy8  = 
cxO,  cyO  = 
clip  radi 


clip_len,  0.0 

clip  len  -  clip  thick,  0.0 

cx2,  -clip  breadth  +  clip  thick  +  clip  radi 

clip  len  -  clip  thick  -  clip  radi,  -  clip  breadth  +  clip  thick 

0.0,  -clip  breadth  +  clip  thick 

0.0,  -clip_breadth 

cx4,  cy6 

clip_len,  cy3 

clip  len-clip  thick-clip  radi,  -  clip  breadth  +  clip  thick  + 


##  changed  clip  information  by  taking  out  the  layers. 

##  information  of  the  clips 
clip  len  ch  =  1.125 
clip  breadth  ch  =  0.8 
clip  depth  ch  =  2.75 

clip  radi  ch  =  0.12  ##  average  of  the  range. 

clip  composite  ch  =  1  ##  0  -  homogeneous  material,  1  -  composite 
if (clip_composite_ch  ==  0): 
clip  material  ch  =  0 
clip  thick  ch  =  1.802 
else : 

##  base  plate  composite  lay-up. 
clip  layup  ch  =  layup  ge  ch 
clip  material  ch  =  layup  material  ch 
clip  t  ch  =  layup  thic_ch 
clip  thick  ch  =  0 
for  ij  in  range (len (clip  t  ch) ) : 

clip  thick  ch  =  clip  thick  ch  +  clip  t  ch[ij] 


cxl  ch,  cyl  ch  =  clip  len  ch,  0.0 

cx2  ch,  cy2  ch  =  clip  len_ch  -  clip  thick  ch,  0.0 

cx3  ch,  cy3  ch  =  cx2  ch,  -clip  breadth  ch  +  clip  thick  ch  +  clip  radi  ch 

cx4^ch,  cy4  ch  =  clip  len  ch  -  clip  thick  ch  -  clip  radi  ch,  - 

clip  breadth  ch  +  clip  thick  ch 

cx5  ch,  cy5  ch  =  0.0,  -clip  breadth  ch  +  clip  thick  ch 
cx6_ch,  cy6  ch  =  0.0,  -clip  breadth  ch 
cx7_ch,  cy7  ch  =  cx4  ch,  cy6  ch 
cx8_ch,  cy8  ch  =  clip  len_ch,  cy3_ch 

cx0_ch,  cyO  ch  =  clip  len  ch-clip  thick^ch-clip  radi  ch,  -  clip  breadth^ch  + 
clip  thick  ch  +  clip  radi  ch 


## 
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##  information  of  the  adhesives 
adh  1  length  =  2.75 
adh  1  length  ch  =  3.35*2.0/3.0 
adh  1  thick  =  0.010 

adh  1  breadth  =  clip  breadth-clip  thick-clip  radi 
adh  1  material  =  1 

a2  =  adh  1  length 
b2  =  adh  1  breadth 

##  adh_l  is  on  the  vertical  plate. 

adh  2  length  =  2.75 

adh  2  length  ch  =  3.350*2.0/3.0 

adh  2  thick  =  0.010 

adh  2  breadth  =  clip  len-clip  thick-clip  radi 
adh^2  material  =  1 

a3  =  adh  2  length 
b3  =  adh  2  breadth 

##  the  adhesive  are  assumed  to  be  of  HOMOGENEOUS  material 

##  the  following  is  the  information  for  incorporating  L  Shape  Aluminum 
##  layer  over  the  exposed  vertical  plate. 

##  ply  al  =  thickness  of  the  aluminum  layer. 

##  Ls  -  L-Shape  aluminum  layer. 

Ls  length  =  web  length 

Ls_breadth  =  web  breadth  -  clip  len  -  adh  1  thick  +  base  thick  #  the  exposed 
area . 

Lsa  =  2 . 25*2 . 0 

Lsb  =  2.25 

LShape  material  =  2 

## - 

###inf ormation  of  defect_l 
defect_la  =  0.5 
defect_lb  =  0.5 

adh  defect  =  adh  1  thick  ##  adhesive  thickness  for  the  defects. 
d_l_t_al  =  0.025 

d  1  t  =  adh  defect  +  d  1  t_al  #  adhesive  thickness 
d_lx  =  defect_la/2 . 0 
d_ly  =  defect_lb/2 . 0 
defect  1  material  =  3 

#  information  for  defect  2 
defect_2a  =  0.5 
defect_2b  =  0.5 
d_2_t_al  =  0.025 

d  2  t  =  adh  defect  +  d  2  t  al  #  adhesive  thickness 
d  2x  =  defect  2a/2.0 
d_2y  =  defect_2b/2 . 0 
defect  2  material  =  3 

## - 

## - 

jointmodel  =  mdb . Model (name= ' Joint  Model') 
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## - 

def  base_part()  : 

global  cxa,  cya,  cxb,  cyb,  cxc,  eye,  cxd,  cyd 
print'  Creating  the  Base  Plate' 

#  coordinates  of  the  verticess 

rectcd  =  ( (a/2 . 0, b/2 . 0) ,  (-a/2 . 0 , b/2 . 0 ) ,  (-a/2 . 0 , -b/2 . 0 ) ,  (a/2 . 0, -b/2 . 0) 

(0.0, 0.0) ) 

s  =  j ointmodel . Sketch (name= ' J-BasePlate ' ,  sheetSize  =  200.0) 

#  creating  the  rectangle. 

s . rectangle (pointl=rectcd [ 1 ] ,  point2=rectcd [ 3 ]  ) 

jointpart  =  j ointmodel . Part (name= ' Base  Plate',  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=base  thick) 

print  '  Creating  the  Web  Plate' 

#  coordinates  of  the  verticess 

rectcd  =  ( (al/2 . 0,bl/2 . 0) ,  (-al/2 . 0,bl/2 . 0) ,  (-al/2 . 0, -bl/2 . 0) ,  (al/2.0, 

bl/2.0),  (0.0, 0.0)) 

s  =  j ointmodel . Sketch (name= ' J-WebPlate ' ,  sheetSize  =  200.0) 
s . rectangle (pointl=rectcd [ 1 ] ,  point2=rectcd [ 3 ] ) 

jointpart  =  j ointmodel . Part (name= ' Web  Plate',  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=web  thick) 

print  '  Creating  the  additional  Aluminum  L-Shape  layer' 

##  creating  additional  Aluminum  layers  on  the  Web  Plate. 

rectcd  =  ((-Lsa/2.0,  Lsb/2.0),  (0,  Lsb/2.0),  (0,  -Lsb/2.0),  (-Lsa/2.0,  - 

Lsb/2.0) ) 

s  =  j ointmodel . Sketch (name= ' L-Shape ' ,  sheetSize  =  200.0) 
s . Line (pointl  =  rectcd[0],  point2  =  rectcd[l]) 
s . Line (pointl  =  rectcd[l],  point2  =  rectcd[2]) 
s . Line (pointl  =  rectcd[2],  point2  =  rectcd[3]) 
s . Line (pointl  =  rectcd[3],  point2  =  rectcd[0]) 

jointpart  =  j ointmodel . Part (name= ' LShape ' ,  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=ply  al) 

print  '  Creating  adhesive  bonds' 

##  coordinates  for  the  adhesives 

rectcd  =  ( (a2/2 . 0,b2/2 . 0) ,  (-a2/2 . 0, b2/2 . 0) ,  (-a2/2 . 0, -b2/2 . 0) ,  (a2/2.0, 

b2/2.0),  (0.0, 0.0)) 

s  =  j ointmodel . Sketch (name= ' J-Adhesive-1 ' ,  sheetSize  =  200.0) 
s . rectangle (pointl=rectcd [ 1 ] ,  point2=rectcd [ 3 ] ) 

jointpart  =  j ointmodel . Part (name= ' Adhesive  -  1',  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=adh  1  thick) 

##  coordinates  for  the  adhesives 

rectcd  =  ( (a3/2 . 0, b3/2 . 0) ,  (-a3/2 . 0, b3/2 . 0) ,  (-a3/2 . 0, -b3/2 . 0) ,  (a3/2.0, 

b3/2 . 0) ,  (0.0, 0.0)) 

s  =  j ointmodel . Sketch (name= ' J-Adhesive-2  '  ,  sheetSize  =  200.0) 
s . rectangle (pointl=rectcd [ 1 ] ,  point2=rectcd [ 3 ] ) 

jointpart  =  j ointmodel . Part (name= ' Adhesive  -  2',  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=adh  2  thick) 
print  '  Creating  the  First  Clip  -  Layup  changed' 
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##  coordinates  for  the  clips. 

rectcd_ch  =  ( (cxl_ch, cyl_ch) ,  (cx2_ch, cy2_ch) ,  (cx3_ch, cy3_ch) , 

(cx4_ch, cy4_ch) ,  (cx5_ch, cy5_ch) , 

(cx6_ch, cy6_ch) ,  (cx7_ch, cy7_ch) ,  (cx8_ch, cy8_ch) , 

(cxO_ch, cyO_ch) ) 

s  =  j ointmodel . Sketch (name= ' J-Clip2 ' ,  sheetSize  =  200.0) 
s . Line (pointl  =  rectcd_ch [ 7 ] ,  point2  =  rectcd_ch [2 ] ) 
s . ArcByCenterEnds (center  =  (cx0_ch,  cy0_ch) ,  pointl  =  rectcd_ch [2 ] , 
point2  =  rectcd_ch [ 3 ] ) 

s . Line (pointl  =  rectcd_ch [ 3 ] ,  point2  =  rectcd_ch [ 6] ) 

s .ArcByCenterEnds (center  =  rectcd  ch[8],  pointl  =  rectcd  ch[7],  point2 
rectcd_ch [ 6] ) 

jointpart  =  j ointmodel . Part (name= ' Clip-2 ' ,  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=clip  depth  ch) 

s  =  j ointmodel . Sketch (name= ' J-Clipl ' ,  sheetSize  =  200.0) 
s . Line (pointl  =  rectcd_ch [ 0 ] ,  point2  =  rectcd_ch [ 1 ] ) 
s . Line (pointl  =  rectcd_ch [ 1 ] ,  point2  =  rectcd_ch [2 ] ) 
s . Line (pointl  =  rectcd_ch [2 ] ,  point2  =  rectcd_ch [ 7 ] ) 
s . Line (pointl  =  rectcd_ch [ 7 ] ,  point2  =  rectcd_ch [ 0 ] ) 
jointpart  =  j ointmodel . Part (name= ' Clip-1 ' ,  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=clip  depth  ch) 

s  =  j ointmodel . Sketch (name= ' J-Clip3 ' ,  sheetSize  =  200.0) 
s . Line (pointl  =  rectcd_ch [ 3 ] ,  point2  =  rectcd_ch [ 4 ] ) 
s . Line (pointl  =  rectcd_ch [ 4 ] ,  point2  =  rectcd_ch [ 5 ] ) 
s . Line (pointl  =  rectcd_ch [ 5 ] ,  point2  =  rectcd_ch [ 6] ) 
s . Line (pointl  =  rectcd_ch [ 6] ,  point2  =  rectcd_ch [ 3 ] ) 
jointpart  =  j ointmodel . Part (name= ' Clip-3 ' ,  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=clip  depth  ch) 

print  '  Creating  the  second  Clip' 

##  coordinates  for  the  clips. 

rectcd  =  ((cxl,cyl),  (cx2,cy2),  (cx3,cy3),  (cx4,cy4),  (cx5,cy5), 
(cx6,cy6),  (cx7,cy7),  (cx8,cy8),  (cx0,cy0)) 
s  =  j ointmodel . Sketch (name= ' J-Clip22 ' ,  sheetSize  =  200.0) 
s . Line (pointl  =  rectcd[7],  point2  =  rectcd[2]) 

s .ArcByCenterEnds (center  =  (cxO,  cyO),  pointl  =  rectcd[2],  point2  = 
rectcd [ 3 ] ) 

s . Line (pointl  =  rectcd[3],  point2  =  rectcd[6]) 

s .ArcByCenterEnds (center  =  rectcd[8],  pointl  =  rectcd[7],  point2  = 
rectcd [ 6] ) 

jointpart  =  j ointmodel . Part (name= ' Clip-22 ' ,  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=clip  depth) 

s  =  j ointmodel . Sketch (name= ' J-Clipl2 ' ,  sheetSize  =  200.0) 
s . Line (pointl  =  rectcd[0],  point2  =  rectcd[l]) 
s . Line (pointl  =  rectcd[l],  point2  =  rectcd[2]) 
s . Line (pointl  =  rectcd[2],  point2  =  rectcd[7]) 
s . Line (pointl  =  rectcd[7],  point2  =  rectcd[0]) 

jointpart  =  j ointmodel . Part (name= ' Clip-12 ' ,  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=clip  depth) 
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s  =  j ointmodel . Sketch (name= ' J-Clip32 ' ,  sheetSize  =  200.0) 
s . Line (pointl  =  rectcd[3],  point2  =  rectcd[4]) 
s . Line (pointl  =  rectcd[4],  point2  =  rectcd[5]) 
s . Line (pointl  =  rectcd[5],  point2  =  rectcd[6]) 
s . Line (pointl  =  rectcd[6],  point2  =  rectcd[3]) 

jointpart  =  j ointmodel . Part (name= ' Clip-32 ' ,  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=clip  depth) 

print  'Creating  defect  -  1' 

##  coordinates  of  defect  -1 

rectcd  =  (  ( -d_lx,  d__ly)  ,  (d_lx, -d_ly) ) 

s  =  j ointmodel . Sketch (name= ' Defect-1 ' ,  sheetSize  =  200.0) 
s . rectangle (pointl=rectcd [ 0 ]  ,  point2=rectcd [ 1 ] ) 

jointpart  =  j ointmodel . Part (name= ' defect  1',  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=d  1  t) 

print  'Creating  defect  -  2' 

##  coordinates  of  defect  -  2 
rectcd  =  ( ( -d_2x, d_2y) ,  (d_2x, -d_2y) ) 

s  =  j ointmodel . Sketch (name= ' Defect-2 ' ,  sheetSize  =  200.0) 
s . rectangle (pointl=rectcd [ 0 ]  ,  point2=rectcd [ 1 ] ) 

jointpart  =  j ointmodel . Part (name= ' defect  2',  dimensionality=THREE  D, 
type=DEFORMABLE_BODY) 

j ointpart . BaseSolidExtrude ( sketch=s ,  depth=d  2  t) 

j  ointmodel .  convertAHSketches  ( ) 

# - 

def  j oint_section ( )  : 

global  cx24m,  cy24m 

p2  =  j ointmodel . parts [' Base  Plate'] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 

CP  =  p2 . DatumPlaneByThreePoints (pointl  =(0.0,  b/2.0,  0.0),  point2  =  (0.0, 
-b/2.0,  clip_depth) , 

point3  =  (0.0,  -b/2.0,  0.0)) 
face  =  f . f indAt ( ( 0 . 0 ,  0.0,  0.0),) 
datums  =  CP.  id 

face  =  f . f indAt (( 0 . 0 ,  -b/2 . 0 , base_thick/2 . 0 )  ,  ) 

datums  =  CP.  id 
name  2  =  'Base  section' 
regi=regionToolset . Region (cells=c) 
if (base_composite  ==  1) : 
layup  =  [0] 

for  ij  in  range (len (base_t) ) : 
k  =  base_material [ i j ] 


namel 


num!ntPts=5 ) 


section . SectionLayer (material=mat  name [k] [1], 
thickness=base_t [i j ] ,  orientAngle=base_layup [i j ] , 


layup  =  layup  +  [namel] 
del  layup [ layup . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name  2, 
layup=layup) 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN,  origin=(- 
a/2 . 0 , -b/ 2.0,0)  , 
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pointl=(a/2.0,-b/2. 0,0.0) ,  point2=(-a/2.0,b/2. 0,0.0) , 
name= ' basecsys ' ) 

csind  =  CS . id 
else : 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN,  origin=(- 
a/2 . 0 , -b/ 2.0,0) , 

pointl=(a/2.0,-b/2. 0,0.0) ,  point2=(-a/2.0,b/2. 0,0.0) , 
name= ' basecsys '  ) 

csind  =  CS . id 
k  =  base  material 

section  2  =  j ointmodel . HomogeneousSolidSection (name=name  2,  material 
=  mat_name[k] [1]) 

p2 . assignMaterialOrientation (region=regi , localCsys=p2 . datums [csind]  , 
axis=AXIS_3) 

p2 . SectionAssignment ( region=regi ,  sectionName=name  2) 

## - - - 

p2  =  j ointmodel . parts [' Web  Plate'] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 
name  2  =  'Web  section' 
regi=regionToolset . Region (cells=c) 
if (web  composite  ==  1) : 
c  =  p2 . cells 
layup  =  [0] 

for  ij  in  range ( len (web  t) ) : 

k  =  web  material [ij] 

namel  =  section . SectionLayer (material=mat  name[k] [1], 

thickness=web  t[ij],  orientAngle=web  layup [ij], 

numIntPts=5 ) 

layup  =  layup  +  [namel] 
del  layup [ layup . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name_2 , 
layup=layup) 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN,  origin=(- 
al /2 . 0 , -bl / 2.0,0) , 

pointl=(al/2.0,-b 1/2. 0,0.0) ,  point2=(-al/2.0,bl/2. 0,0.0) , 
name= ' webcsys ' ) 

csind  =  CS . id 
else : 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN,  origin=(- 
al /2 . 0 , -bl / 2.0,0) , 

pointl=(al/2.0,-b 1/2. 0,0.0) ,  point2=(-al/2.0,bl/2. 0,0.0) , 
name= ' webcsys ' ) 

csind  =  CS . id 
k  =  web  material 

section  2  =  j ointmodel . HomogeneousSolidSection (name=name  2,  material 
=  mat_name[k] [1]) 

p2 . assignMaterialOrientation (region=regi , localCsys=p2 . datums [csind] , 
axis=AXIS__3) 

p2 . SectionAssignment (region=regi,  sectionName=name_2 ) 

# - 1 - 

p2  =  j ointmodel . parts [' LShape ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 
name  2  =  'LShape  section' 
regi=regionToolset . Region (cells=c) 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN,  origin= (-al/2 . 0, - 
bl/2.0,0) , 
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pointl=(al/2.0,-b 1/2. 0,0.0) ,  point2=(-al/2.0,bl/2. 0,0.0) , 
name= ' LShapesys ' ) 
csind  =  CS . id 
k  =  LShape  material 
layup  =  [0] 

namel  =  section . SectionLayer (material=mat  name [k] [1], 

thickness=ply  alt,  orientAngle=0 ,  numIntPts=5) 
layup  =  layup  +  [namel] 
k  =  adh  1  material 

namel  =  section . SectionLayer (material=mat  name [k] [1], 

thickness=adh  1  thick,  orientAngle=0 ,  numIntPts=5) 
layup  =  layup  +  [namel] 

del  layup [ layup . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name  2,  layup=layup) 
p2 . assignMaterialOrientation (region=regi , localCsys=p2 . datums [csind] , 
axis=AXIS_3) 

p2 . SectionAssignment ( region=regi ,  sectionName=name  2) 

## - - - 

p2  =  j ointmodel . parts [' Adhesive  -  1'] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN,  origin= (a2/2 . 0, - 
b2/2.0,0) , 

pointl=(a2/2.0,b2/2. 0,0.0) ,  point2=(-a2/2.0, -b2/2 .0,0.0) , 
name= ' adhlcsys ' ) 
csind  =  CS . id 

name  2  =  'Adhesive  1  section' 

regi  =  regionToolset . Region (cells  =  c) 

k  =  adh  1  material 

layup  =  [0] 

namel  =  section . SectionLayer (material=mat  name[k] [1], 

thickness=adh  1  thick,  orientAngle=0 ,  numIntPts=5) 
layup  =  layup  +  [namel] 
del  layup [ layup . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name_2 ,  layup=layup) 
p2 . assignMaterialOrientation (region=regi , localCsys=p2 . datums [csind]  , 
axis=AXIS_3) 

p2 . SectionAssignment ( region=regi ,  sectionName=name  2) 
p2  =  j ointmodel . parts [' Adhesive  -  2'] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN,  origin= (a2/2 . 0, - 
b2/2.0,0) , 

pointl=(a2/2.0,b2/2. 0,0.0) ,  point2=(-a2/2.0,  -b2 /2 . 0 , 0 . 0 )  , 
name= ' adh2csys '  ) 
csind  =  CS  .  id 

name_2  =  'Adhesive  2  section' 

regi  =  regionToolset . Region (cells  =  c) 

k  =  adh  2  material 

layup  =  [0] 

namel  =  section . SectionLayer (material=mat  name [k] [1], 

thickness=adh  2  thick,  orientAngle=0 ,  numIntPts=5) 
layup  =  layup  +  [namel] 
del  layup [ layup . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name  2,  layup=layup) 
p2 . SectionAssignment (region=regi,  sectionName=name  2) 

p2 . assignMaterialOrientation (region=regi , localCsys=p2 . datums [csind] , 
axis=AXIS  3) 
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## 

## 


##  CHANGED  FOR  THE  CHANGED  LAYUP 
p2  =  j ointmodel . parts [' Clip-3 ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN, 
origin= ( (cx6_ch+cx5_ch) *0.5, (cy6_ch+cy5_ch) *0 . 5, 0 . 0) , 

pointl= ( (cx6_ch+cx5_ch) *0.5, (cy6_ch+cy5_ch) *0.5, clip_depth_ch) , 
point2=((cx7  ch+cx4  ch)*0.5,(cy4  ch+cy7  ch) *0 . 5, 0 . 0) ,  name= ' cliplcsys ' ) 
csind  =  CS . id 
name  2  =  'clip  section  1' 
regi=regionToolset . Region (cells=c) 
if (clip  composite  ch  ==  1) : 
c  =  p2 . cells 
layup_ch  =  [0] 

for  ij  in  range (len (clip  t  ch) ) : 

k  =  clip  material [ij] 

namel  =  section . SectionLayer (material=mat  name [k] [1], 

thickness=clip  t  ch[ij],  orientAngle=clip  layup  ch[ij], 

numIntPts=5 ) 

layup  ch  =  layup  ch  +  [namel] 
del  layup_ch [ layup_ch . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name  2, 
layup=layup_ch) 


else : 

k  =  clip  material_ch 

section  2  =  j ointmodel . HomogeneousSolidSection (name=name  2,  material 
=  mat_name[k] [1]) 

p2 . SectionAssignment ( region=regi ,  sectionName=name  2) 

p2 . assignMaterialOrientation (region=regi , localCsys=p2 . datums [csind] , 
axis=AXIS_3) 

p2  =  j ointmodel . parts [' Clip-1 ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 

CS2  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN, 
origin= ( (cx3_ch+cx8_ch) *0.5, (cy3_ch+cy8_ch) *0 . 5, 0 . 0) , 

pointl= ( (cx3_ch+cx8_ch) *0.5, (cy3_ch+cy8_ch) *0.5, clip_depth_ch) , 
point2=((cxl  ch+cx2  ch)*0.5,(cyl  ch+cy2  ch) *0 . 5, 0 . 0) ,  name= ' clip2csys ' ) 
csind2  =  CS2.id 
name  2  =  'clip  section  2' 
regi=regionToolset . Region (cells=c) 
if (clip_composite  ==  1): 
c  =  p2 . cells 
layup_ch  =  [0] 

for  ij  in  range (len (clip  t  ch) ) : 
k  =  clip  material  ch[ij] 


namel 


num!ntPts=5 ) 


section . SectionLayer (material=mat  name [k] [1], 
thickness=clip  t  ch[ij],  orientAngle=clip  layup  ch[ij]. 


layup  ch  =  layup  ch  +  [namel] 
del  layup___ch  [  layup_ch  .  index  ( 0 )  ] 

section  2  =  j ointmodel . CompositeShellSection (name=name  2, 
layup=layup_ch) 


else : 
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k  =  clip  material  ch 

section  2  =  j ointmodel . HomogeneousSolidSection (name=name  2,  material 
=  mat_name[k] [1]) 

p2 . SectionAssignment (region=regi,  sectionName=name  2) 

p2 . assignMaterialOrientation ( region=regi , localCsys=p2 . datums [csind2 ] , 
axis=AXIS_3) 

##  partitioning  start. 

p2  =  j ointmodel . parts [' Clip-2 ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 
theta  =  90/nos 
th  =  0 

for  ij  in  range (nos  -  1)  : 
th  =  theta  *  (ij+1) 

xc  =  (clip  radi  ch+clip  thick  ch/2 . 0) *cos (th*pi/180) 
yc  =  (clip  radi  ch+clip  thick  ch/2 . 0) *sin (th*pi/180) 
xcc  =  clip  len  ch  -  clip  thick  ch  -  clip  radi  ch 
ycc  =  clip  breadth^ch  -  clip  thick  ch  -  clip  radi_ch 
CP  =  p2 . DatumPlaneByThreePoints (pointl  =(xcc,  -ycc,  0.0),  point2  = 
(xcc,  -ycc,  clip_depth) , 

point3  =  (xc+xcc,  -yc-ycc,  0.0)) 

c  =  p2. cells 

cell  =c . f indAt ( (xcc+xc,  -ycc-yc,  0.0),) 
datums  =  CP. id 

p2 . PartitionCellByDatumPlane (cells  =  cell, 
datumPlane=p2 . datums [datums ] ) 
theta  =  90/nos 
th  =  0 


for  ij  in  range (nos) : 
th  =  theta  *  (ij+1) 

xc  =  clip  radi  ch*cos (th*pi/180) 
yc  =  clip  radi  ch*sin (th*pi/180) 

xcc  =  clip  len  ch  -  clip  thick  ch  -  clip  radi  ch 
ycc  =  clip  breadth  ch  -  clip  thick  ch  -  clip  radi  ch 
thet  =  theta* (2 . 0*ij+l . 0) *0 . 5 

cx24m  =  xcc  +  (clip  radi  ch+clip  thick  ch/2 . 0) *cos (thet*pi/180) 
cy24m  =  ycc  +  (clip  radi  ch+clip  thick  ch/2 . 0) *sin (thet*pi/180) 


cx87m  =  cx24m  + 

(clip  radi  ch+clip  thick  ch/2 . 0) *sin (thet*pi/180) *tan (thet*pi/180) 

CS3  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN, 
origin= (cx24m, -cy24m, 0.0), 

pointl= (cx24m, -cy24m, clip  depth),  point2= (cx87m, -ycc, 0 . 0) , 
name= ' clip3csys ' ) 

csind3  =  CS3.id 

name  2  =  'clip  section^3 ' 

cels  =  c . f indAt ( (cx24m,  -cy24m,  0.0),) 

cel  =  cels. index 

regi=regionToolset . Region (cells=c [cel : cel  +  1 ]  ) 
if (clip  composite  ch  ==  1)  : 
c  =  p2 . cells 
layup_ch  =  [0] 

for  ij  in  range (len (clip  t  ch) ) : 
k  =  clip  material  ch[ij] 


namel  =  section . SectionLayer (material=mat  name [k] [1], 
thickness=clip_t_ch [ i j ]  , 
orientAngle=clip  layup  ch[ij],  num!ntPts=5) 
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layup  ch  =  layup  ch  +  [namel] 
del  layup_ch [ layup_ch . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name  2, 
layup=layup_ch) 

else : 

k  =  clip  material 

section  2  =  j ointmodel . HomogeneousSolidSection (name=name  2, 
material  =  mat  name [k] [1]) 

p2 . SectionAssignment (region=regi,  sectionName=name  2) 

p2 . assignMaterialOrientation (region=regi , localCsys=p2 . datums [csind3 ]  , 
axis=AXIS_3) 

theta  =  90/nos 
for  ij  in  range (nos) : 
th  =  theta  *  (ij+1) 

xc  =  clip  radi  ch*cos (th*pi/180) 
yc  =  clip  radi  ch*sin (th*pi/180) 

xcc  =  clip  len  ch  -  clip  thick  ch  -  clip  radi  ch 

ycc  =  clip  breadth^ch  -  clip  thick  ch  -  clip  radi  ch 

thet  =  theta*  (2 . 0*ij+l .  0) *0 . 5 

cx24m  =  xcc  +  clip  radi  ch*cos (thet*pi/180) 

cy24m  =  ycc  +  clip  radi  ch*sin (thet*pi/180) 

p2  =  j ointmodel . parts [' Clip-2 ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 
cell  =c . f indAt ( (cx24m,  -cy24m,  0.0),) 
celli  =  cell. index 

p2 . setMeshControls (regions=c [celli : celli+1 ] ,  technique=SWEEP, 
algorithm=MEDIAL_AXIS) 

thetaa  =  theta*ij 

xce,  yce  =  (clip_radi_ch  +  clip_thick_ch/2 . 0) *cos (thetaa*pi/180) , 
(clip  radi  ch  +  clip  thick  ch/2 . 0) *sin (thetaa*pi/180) 
edge  =  e . f indAt ( (xce+xcc,  -ycc-yce,  0.0),) 
ein  =  edge. index 

p2 . setSweepPath (region=c [celli] ,  edge=edge,  sense=FORWARD) 
elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 

p2 . seedEdgeByNumber (edges= (edge, ) ,  number  =  1,  constraint=FIXED) 
p2 . seedPart ( size=0 . 2 ,  deviationFactor=l . 8 ) 

##  p2 . seedPart (size=0 . 1,  deviationFactor=0 . 1 ) 

## - 

## - 

p2  =  j ointmodel . parts [' Clip-32 ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN, 
origin= ( (cx7+cx4) *0.5, (cy7+cy4) *0 . 5, 0 . 0) , 

point 1=  (  (cx7+cx4) *0.5,  (cy7+cy4) *0.5, clip_depth) , 
point2= ( (cx5+cx6) *0.5, (cy5+cy6) *0.5, 0.0) ,  name= ' cliplcsys ' ) 
csind  =  CS . id 
name  2  =  'clip  section  12' 
regi=regionToolset . Region (cells=c) 
if (clip_composite  ==  1): 
c  =  p2. cells 
layup  =  [0] 

for  ij  in  range (len (clip  t) ) : 
k  =  clip  material [ij] 
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namel 


numIntPts=5 ) 


=  section . SectionLayer (material=mat  name [k] [1], 

thickness=clip  t[ij],  orientAngle=clip  layup [ij]. 


layup  =  layup  +  [namel] 
del  layup [ layup . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name  2, 
layup=layup) 


else : 

k  =  clip  material 

section  2  =  j ointmodel . HomogeneousSolidSection (name=name  2,  material 
=  mat_name[k] [1]) 

p2 . SectionAssignment ( region=regi ,  sectionName=name  2) 

p2 . assignMaterialOrientation (region=regi , localCsys=p2 . datums [csind]  , 
axis=AXIS_3) 

p2  =  j ointmodel . parts [' Clip-12 ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 

CS2  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN, 
origin= ( (cxl+cx2) *0.5, (cyl+cy2)*0.5,0.0), 

point 1= ( (cxl+cx2) *0.5, (cyl+cy2) *0.5, clip_depth) , 
point2=( (cx3+cx8)*0.5, (cy3+cy8)*0.5,0.0) ,  name= ' clip2csys ' ) 
csind2  =  CS2.id 
name  2  =  'clip  section  22' 
regi=regionToolset . Region (cells=c) 
if (clip_composite  ==  1): 
c  =  p2 . cells 
layup  =  [0] 

for  ij  in  range (len (clip  t) ) : 
k  =  clip  material [ij] 

namel  =  section . SectionLayer (material=mat  name [k] [1], 

thickness=clip  t  [  i j ] ,  orientAngle=clip  layup [ij], 

numIntPts=5 ) 

layup  =  layup  +  [namel] 
del  layup [ layup . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name  2, 
layup=layup) 
else : 

k  =  clip  material 

section  2  =  j ointmodel . HomogeneousSolidSection (name=name  2,  material 
=  mat_name[k] [1]) 

p2 . SectionAssignment (region=regi,  sectionName=name_2 ) 

p2 . assignMaterialOrientation (region=regi , localCsys=p2 . datums [csind2 ] , 
axis=AXIS_3) 

p2  =  j ointmodel . parts [' Clip-22 ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 
theta  =  90/nos 
th  =  0 

for  ij  in  range (nos  -  1)  : 
th  =  theta  *  (ij+1) 

xc  =  clip  radi*cos (th*pi/180) 
yc  =  clip  radi*sin (th*pi/180) 
xcc  =  clip  len  -  clip  thick  -  clip  radi 
ycc  =  clip  breadth  -  clip  thick  -  clip  radi 

CP  =  p2 . DatumPlaneByThreePoints (pointl  =(xcc,  -ycc,  0.0),  point2  = 
(xcc,  -ycc,  clip_depth) , 

point3  =  (xc+xcc,  -yc-ycc,  0.0)) 
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c  =  p2. cells 

cell  =c . f indAt ( (xcc+xc,  -ycc-yc,  0.0),) 
datums  =  CP. id 

p2 . PartitionCellByDatumPlane (cells  =  cell, 
datumPlane=p2 . datums [datums ] ) 
theta  =  90/nos 
th  =  0 

for  ij  in  range (nos) : 
th  =  theta  *  (ij+1) 

xc  =  clip  radi*cos (th*pi/180) 
yc  =  clip  radi*sin (th*pi/180) 
xcc  =  clip  len  -  clip  thick  -  clip  radi 
ycc  =  clip  breadth  -  clip  thick  -  clip  radi 
thet  =  theta* (2 . 0*ij+l . 0) *0 . 5 

cx24m  =  xcc  +  (clip  radi+clip  thick/2 . 0) *cos (thet*pi/180) 

cy24m  =  ycc  +  (clip  radi+clip  thick/2 . 0) *sin (thet*pi/180) 

cy87m  =  ycc  +  (clip  radi+clip  thick/2 . 0) /sin (thet*pi/180) 

CS3  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN, 
origin= (cx24m, -cy24m, 0.0), 

pointl= (cx24m, -cy24m, clip  depth),  point2= (xcc, -cy87m,  0 . 0)  , 
name= ' clip3csys ' ) 

csind3  =  CS3.id 

name  2  =  'clip  section^3 ' 

cels  =  c . f indAt ( (cx24m,  -cy24m,  0.0),) 

cel  =  cels. index 

regi=regionToolset . Region (cells=c [cel : cel  +  1 ]  ) 
if (clip_composite  ==  1): 
c  =  p2 . cells 
layup  =  [0] 

for  ij  in  range (len (clip  t) ) : 
k  =  clip  material [ij] 


num!ntPts=5 ) 


namel  =  section . SectionLayer (material=mat  name [k] [1], 

thickness=clip  t[ij],  orientAngle=clip  layup [ij]. 


layup  =  layup  +  [namel] 
del  layup [layup . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name  2, 

layup=layup) 
else : 


k  =  clip  material 

section  2  =  j ointmodel . HomogeneousSolidSection (name=name  2, 
material  =  mat  name [k] [1]) 

p2 . SectionAssignment ( region=regi ,  sectionName=name_2 ) 

p2 . assignMaterialOrientation (region=regi , localCsys=p2 . datums [csind3 ]  , 
axis=AXIS_3) 

theta  =  90/nos 
for  ij  in  range (nos) : 
th  =  theta  *  (ij+1) 

xc  =  clip  radi*cos (th*pi/180) 
yc  =  clip  radi*sin (th*pi/180) 
xcc  =  clip  len  -  clip  thick  -  clip  radi 
ycc  =  clip  breadth  -  clip  thick  -  clip  radi 
thet  =  theta* (2 . 0*ij+l . 0) *0 . 5 
cx24m  =  xcc  +  clip  radi*cos (thet*pi/180) 
cy24m  =  ycc  +  clip  radi*sin (thet*pi/180) 
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p2  =  j ointmodel . parts [' Clip-22 ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 
cell  =c . f indAt ( (cx24m,  -cy24m,  0.0),) 
celli  =  cell. index 

p2 . setMeshControls (regions=c [celli:celli+l] ,  technique=SWEEP, 
algorithm=MEDIAL_AXIS) 

thetaa  =  theta*ij 

xce,  yce  =  (clip_radi  +  clip_thick/2 . 0) *cos (thetaa*pi/180) , 

(clip  radi  +  clip  thick/2 . 0) *sin (thetaa*pi/180) 

edge  =  e . f indAt ( (xce+xcc,  -ycc-yce,  0.0),) 
ein  =  edge. index 

p2 . setSweepPath (region=c [celli] ,  edge=edge,  sense=REVERSE) 
elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 
p2 . seedEdgeByNumber (edges= (edge, ) ,  number  =  1,  constraint=FIXED) 
p2 . seedPart ( size=0 . 2 ) 


p2  =  j ointmodel . parts [' defect_l ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN,  origin=(d  lx, - 
d_ly, 0) , 

point 1= (d_lx, d_ly, 0.0),  point2=( -d_lx, -d_ly, 0.0),  name= ' dlcsys ' ) 
csind  =  CS.id 

name  2  =  'Defect  1  section' 

regi  =  regionToolset . Region (cells  =  c) 

k  =  adh  1  material 

layup  =  [0] 

namel  =  section . SectionLayer (material=mat  name[k] [1], 

thickness=adh  defect,  orientAngle=0 ,  numIntPts=5) 
layup  =  layup  +  [namel] 
k  =  defect  1  material 

namel  =  section . SectionLayer (material=mat  name [k] [1], 

thickness=d  1  t_al,  orientAngle=0 ,  numIntPts=5) 
layup  =  layup  +  [namel] 
del  layup [layup . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name_2 ,  layup=layup) 
p2 . SectionAssignment ( region=regi ,  sectionName=name  2) 
p2 . assignMaterialOrientation ( region=regi , localCsys=p2 . datums [csind] , 
axis=AXIS_3) 

p2  =  j ointmodel . parts [' defect_2 ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 

CS  =  p2 . DatumCsysByThreePoints (coordSysType=CARTESIAN,  origin=(d  2x, - 
d_2y, 0) , 

point 1= (d_2x, d_2y, 0.0),  point2=( -d_2x, -d_2y, 0.0),  name= ' d2csys ' ) 
csind  =  CS.id 

name_2  =  'Defect  2_section' 

regi  =  regionToolset . Region (cells  =  c) 

k  =  adh  1  material 

layup  =  [0] 

namel  =  section . SectionLayer (material=mat  name[k] [1], 

thickness=adh  defect,  orientAngle=0 ,  numIntPts=5) 
layup  =  layup  +  [namel] 
k  =  defect  1  material 

namel  =  section . SectionLayer (material=mat  name [k] [1], 

thickness=d  2  t  al,  orientAngle=0 ,  numIntPts=5) 
layup  =  layup  +  [namel] 
del  layup [ layup . index ( 0 ) ] 

section  2  =  j ointmodel . CompositeShellSection (name=name_2 ,  layup=layup) 
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p2 . SectionAssignment ( region=regi ,  sectionName=name  2) 

p2 . assignMaterialOrientation ( region=regi , localCsys=p2 . datums [csind]  , 
axis=AXIS_3) 

## - 

## - 

def  j oint_sweeppaths ( )  : 

p2= j  ointmodel . parts [ ' Base  Plate ' ] 
c,  e,  v  =  p2. cells,  p2. edges,  p2. vertices 
cellin  =  c . f indAt ( ( 0 . 0 , 0 . 0 , 0 . 0 ) , ) 
celli  =  cellin. index 

p2 . setMeshControls (regions=c [celli:celli+l] ,  technique=SWEEP, 
algorithm=MEDIAL_AXIS) 

edge  =  e . f indAt ( (a/2 . 0 ,  b/2.0,  base_thick/3 . 0) , ) 
p2 . setSweepPath (region=c [celli] ,  edge=edge,  sense=FORWARD) 
elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 
p2 . seedPart ( size=0 . 2 ,  deviationFactor=0 . 1 ) 

p2 . seedEdgeByNumber (edges= (edge, ) ,  number  =  1,  constraint=FIXED) 

p2=j ointmodel . parts [' Web  Plate'] 

c,  e,  v  =  p2. cells,  p2. edges,  p2. vertices 

cellin  =  c . f indAt (( 0 . 0 , 0 . 0 , 0 . 0 ), ) 

celli  =  cellin. index 

p2 . setMeshControls (regions=c [celli:celli+l] ,  technique=SWEEP, 
algorithm=MEDIAL_AXIS) 

edge  =  e . f indAt ( (al/2 . 0,  bl/2.0,  base_thick/3 . 0 )  ,  ) 
p2 . setSweepPath (region=c [celli] ,  edge=edge,  sense=FORWARD) 
elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 
p2 . seedPart ( size=0 . 2 ,  deviationFactor=0 . 1 ) 

p2 . seedEdgeByNumber (edges= (edge, ) ,  number  =  1,  constraint=FIXED) 

## - 

p2  =  j ointmodel . parts [' Clip-3 ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 
cellin  =  c. findAt ( (cx4_ch, cy4_ch, 0 . 0)  ,  ) 
celli  =  cellin. index 

p2 . setMeshControls (regions=c [celli:celli+l] ,  technique=SWEEP, 
algorithm=MEDIAL_AXIS) 

edge  =  e . findAt ( (cx4_ch,  (cy4_ch+cy7_ch) *0 . 5,  0.0),) 
p2 . setSweepPath (region=c [celli] ,  edge=edge,  sense=FORWARD) 
elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 
p2 . seedPart ( size=0 . 2 ,  deviationFactor=0 . 1 ) 

p2 . seedEdgeByNumber (edges= (edge, ) ,  number  =  1,  constraint=FIXED) 

p2  =  j ointmodel . parts [' Clip-1 ' ] 

c,f,e  =  p2. cells,  p2. faces,  p2. edges 

cellin  =  c . findAt ( (cxl_ch, cyl_ch, 0 . 0) , ) 

celli  =  cellin. index 

p2 . setMeshControls (regions=c [celli:celli+l] ,  technique=SWEEP, 
algorithm=MEDIAL_AXIS) 

edge  =  e . findAt (( (cxl_ch+cx2_ch) *0 . 5,  cyl_ch,  0.0),) 
p2 . setSweepPath (region=c [celli] ,  edge=edge,  sense=FORWARD) 
elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 
p2 . seedPart ( size=0 . 2 ,  deviationFactor=0 . 1 ) 

p2 . seedEdgeByNumber (edges= (edge, ) ,  number  =  1,  constraint=FIXED) 

## - 

p2  =  j ointmodel . parts [' Clip-32 ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 
cellin  =  c. findAt ( (cx4, cy4, 0.0) , ) 
celli  =  cellin. index 
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p2 . setMeshControls (regions=c [celli:celli+l] ,  technique=SWEEP, 
algorithm=MEDIAL_AXIS) 

edge  =  e . f indAt ( (cx4 ,  (cy4+cy7) *0 . 5,  0.0),) 

p2 . setSweepPath (region=c [celli] ,  edge=edge,  sense=REVERSE) 
elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 
p2 . seedPart ( size=0 . 2 ,  deviationFactor=0 . 1 ) 

p2 . seedEdgeByNumber (edges= (edge, ) ,  number  =  1,  constraint=FIXED) 

p2  =  j ointmodel . parts [' Clip-12 ' ] 

c,f,e  =  p2. cells,  p2. faces,  p2. edges 

cellin  =  c.findAt ( (cxl, cyl, 0.0) , ) 

celli  =  cellin. index 

p2 . setMeshControls (regions=c [celli:celli+l] ,  technique=SWEEP, 
algorithm=MEDIAL_AXIS) 

edge  =  e . f indAt ( ( (cxl+cx2 ) *0 . 5 ,  cyl,  0.0),) 
p2 . setSweepPath (region=c [celli] ,  edge=edge,  sense=REVERSE) 
elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 
p2 . seedPart ( size=0 . 2 ,  deviationFactor=0 . 1 ) 

p2 . seedEdgeByNumber (edges= (edge, ) ,  number  =  1,  constraint=FIXED) 


p2  =  j ointmodel . parts [' Adhesive  -  1'] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 
cellin  =  c . f indAt (( 0 . 0 , 0 . 0 , 0 . 0 ), ) 
celli  =  cellin. index 

edge  =  e . f indAt ( (a2/2 . 0,  b2/2.0,  adh_l_thick/2 . 0 ) , ) 

p2 . setSweepPath (region=c [celli] ,  edge=edge,  sense=FORWARD) 

elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 

p2 . seedPart (size=0 . 14,  deviationFactor=0 . 1) 

p2  =  j ointmodel . parts [' Adhesive  -  2'] 

c,f,e  =  p2. cells,  p2. faces,  p2. edges 

cellin  =  c . f indAt (( 0 . 0 , 0 . 0 , 0 . 0 ), ) 

celli  =  cellin. index 

edge  =  e . f indAt ( (a3/2 . 0 ,  b3/2.0,  adh_l_thick/2 . 0 ) , ) 
p2 . setSweepPath (region=c [celli] ,  edge=edge,  sense=FORWARD) 
elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 
p2 . seedPart (size=0 . 14,  deviationFactor=0 . 1) 


p2  =  j ointmodel . parts [' LShape ' ] 
c,f,e  =  p2. cells,  p2. faces,  p2. edges 
cellin  =  c . f indAt (( 0 . 0 , 0 . 0 , 0 . 0 ), ) 
celli  =  cellin. index 

edge  =  e . f indAt (( 0 . 0 ,  Lsb/2.0,  ply_al/2 . 0) , ) 
p2 . setSweepPath (region=c [celli] ,  edge=edge,  sense=FORWARD) 
elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 
p2 . seedPart (size=0 . 14,  deviationFactor=0 . 1) 


##  defect  element  assignment  and  meshing 
p2  =  j ointmodel . parts [' defect_l ' ] 

elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 
cell9  =  p2. cells 
cels  =  (cell9, ) 

p2 . setElementType ( regions=cels  ,  elemTypes= (elemTypel ,  )) 

p2 . seedPart (size=0 . 05,  deviationFactor=0 . 1) 

##  defect  element  assignment  and  meshing 
p2  =  j ointmodel . parts [' defect_2 ' ] 

elemTypel  =  mesh . ElemType (elemCode=SC8R,  elemLibrary=STANDARD) 
cell9  =  p2. cells 
cels  =  (cell9, ) 
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p2 . setElementType (regions=cels  ,  elemTypes= (elemTypel ,  )) 

p2 . seedPart (size=0 . 05,  deviationFactor=0 . 1) 

## - 

# - 

def  clip  partition ()  : 
global  xyx,  xyy 

p2= j  ointmodel . parts [ ' Base  Plate ' ] 
c  =  p2. cells 
f  =  p2 . faces 
x  =  a/2.0 

s  =  j ointmodel . Sketch (name= ' BasePlatep ' ,  sheetSize  =  200.0) 

rectcd  =  ( (bolt_x/2 . 0, bolt_y/2 . 0) ,  ( -bolt_x/2 . 0 , -bolt_y/2 . 0 ) ) 

s . rectangle (pointl=rectcd [0],  point2=rectcd[l]) 

faces  =  f . f indAt ( ( 0 . 0 ,  0.0,  0.0),) 

p2 . PartitionFaceBySketch ( f aces=  faces,  sketch=s) 

# - 

#  material  properties  of  the  plies. 

##  material  -  1 
def  base_mater() : 
num  mat  =  0 

##  creating  lamina  material 

for  inte  in  range ( len (mat  name)) : 

algraphiteepoxy= j ointmodel . Material (name=mat  name [inte] [1]) 
propes  =  (mat  name [inte] [2],  mat  name [inte] [3],  mat  name [inte] [4], 
mat_name [inte] [5],  mat_name [inte] [6],  mat_name [ inte ] [7], 
mat_name [inte] [8],  mat_name [inte] [9],  mat_name [inte] [10]) 
algraphiteepoxy .Elastic (table= (propes,  ),  type=ENGINEERING  CONSTANTS) 
CTEprop  =  (mat  name [inte]  [11],  mat  name [inte]  [12], 
mat_name [inte] [13]) 

algraphiteepoxy . Expansion (type=0RTH0TR0PIC,  table= (CTEprop, ) ) 
num  mat  =  num  mat  +  1 
print  num  mat,  Materials  created' 


## - 

## 

def  j oint_instance ( )  : 

p2  =  j ointmodel . parts [' Base  Plate'] 
jointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' baseinstance ' ,  part  =  p2, 

dependent  =  ON) 

p2  =  j ointasseme . instances [' baseinstance ' ] 

p2 . rotateAboutAxis (axisPoint= (a/2 . 0 ,  0.0,  0.0),  axisDirection= ( -a/2 . 0 , 

0.0, 

0.0),  angle=90 . 0 ) 

p2  =  j ointmodel . parts [' Web  Plate'] 
jointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' webinstance ' ,  part  =  p2, 

dependent  =  ON) 

p2  =  j ointasseme . instances [' webinstance ' ] 

y  =  bl/2.0  +  base_thick  +  dist_web_base##+  clip_thick  ##+  base_thick  ## 
web  plate  moved  up. 
ynew  =  y 

p2 . translate (vector= ( 0 . 0 , y, -web_thick/2 . 0 ) ) 
p2  =  j ointmodel . parts [' LShape ' ] 
jointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' Lshapeinstance ' ,  part  =  p2, 
dependent  =  ON) 
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p2  =  j ointasseme . instances [' Lshapeinstance ' ] 
y  =  Lsb/2.0  +  base  thick  +  clip  len  +  adh  1  thick 
y  =  ynew  +  bl /2 . O-Lsb/2 . 0 
x  =  al / 2  .  0 

p2 . translate (vector= (x, y, -web_thick/ 2 . 0-ply_al ) ) 

##  base  plate  adhesive  translation  and  rotation 
p2  =  j ointmodel . parts [' Adhesive  -  2'] 
j ointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' adhinstance-2-1 ' ,  part  =  p2, 

dependent  =  ON) 

p2=j ointasseme . instances [ ' adhinstance-2-1 '  ] 

y, z  =  adh  2  breadth/2 . 0+base  thick,  adh  1  thick  +  clip  len  + 
web  thick/ 2 . 0 

p2  .  translate (vector= ( 0 ,  y,  z )  ) 

xl,  yl,  zl  =  adh  1  length/2 . 0 ,  base  thick,  z 

p2 . rotateAboutAxis (axisPoint= (xl ,  yl,  zl),  axisDirection= ( - 
adh_l_length, 0 . 0 , 0 . 0 ) ,  angle=90 . 0 ) 

p2  =  j ointmodel . parts [' Adhesive  -  2'] 
j ointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' adhinstance-2-2 ' ,  part  =  p2, 

dependent  =  ON) 

p2=j  ointasseme . instances [ ' adhinstance-2-2 ' ] 

y, z  =  adh  2  breadth/2 . 0+base  thick,  adh  1  thick  +  clip  len  + 
web  thick/2.0  +  adh  2  thick 

p2 . translate (vector=(0,y,-z)  ) 

xl,yl,zl  =  adh  1  length/2.0,  base  thick,  adh  1  thick  +  clip  len  + 
web  thick/ 2 . 0 

x2,y2,z2  =  -adh  1  length,  0 . 0 , 0 . 0 

p2 . rotateAboutAxis (axisPoint= (xl , yl , -zl ) ,  axisDirection= (x2 , y2 , z2 ) , 
angle=-90 . 0) 

##  clip  translation  and  rotation. 
p2  =  j ointmodel . parts [' Clip-1 ' ] 
j ointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' clipinstance-1-1 ' ,  part  =  p2, 

dependent  =  ON) 

p2  =  j ointasseme . instances [' clipinstance-1-1 '  ] 
x,y,z  =  0,  clip_breadth,  0.0 

p2 . rotateAboutAxis (axisPoint= (0,  0,  0.0),  axisDirection= (x, y, z ) , 
angle=90 . 0 ) 

x,y  =  -adh  2  length/2 . 0 , clip  breadth+base  thick+adh  2  thick 
z  =  adh  1  thick+web  thick/2 . 0+clip  len 
p2 . translate (vector= (x, y, z ) ) 

p2  =  j ointmodel . parts [' Clip-2 ' ] 
j ointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' clipinstance-2-1 ' ,  part  =  p2, 

dependent  =  ON) 

p2  =  j ointasseme . instances [' clipinstance-2-1 ' ] 
x,  y,  z  =  0,  clip_breadth,  0.0 

p2 . rotateAboutAxis (axisPoint= ( 0 ,  0,  0.0),  axisDirection= (x, y, z ) , 
angle=90 . 0 ) 

x,y  =  -adh  2_length/2 . 0 , clip  breadth+base  thick+adh  2  thick 
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z  =  adh  1  thick+web  thick/2 . O+clip  len 
p2 . translate (vector= (x, y,  z ) ) 
p2  =  j ointmodel . parts [' Clip-3 ' ] 
jointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' clipinstance-3-1 ' ,  part  =  p2, 

dependent  =  ON  ) 

p2  =  j ointasseme . instances [' clipinstance-3-1 '  ] 
x,y, z  =  0,  clip_breadth,  0.0 

p2 . rotateAboutAxis (axisPoint= ( 0 ,  0,  0.0),  axisDirection= (x,  y,  z )  , 
angle=90 . 0 ) 

x,y  =  -adh  2  length/2 . 0 , clip  breadth+base  thick+adh  2  thick 
z  =  adh  1  thick+web  thick/2 . 0+clip  len 
p2 . translate (vector= (x, y, z ) ) 

##  adhesive  1-1  on  the  web  section  translate  only 
p2  =  j ointmodel . parts [' Adhesive  -  1'] 
jointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' adhinstance-1-1 ' ,  part  =  p2, 

dependent  =  ON) 

p2  =  j ointasseme . instances [' adhinstance-1-1 ' ] 

y  =  -adh  1  breadth/2 . 0+adh  2  thick+clip  breadth+base  thick 

z  =  web  thick/2.0 

p2 . translate (vector=(0.0,y,  z)  ) 

##  adhesive  1-2  on  the  web  section  translate  only 
p2  =  j ointmodel . parts [' Adhesive  -  1'] 
jointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' adhinstance-1-2 ' ,  part  =  p2, 

dependent  =  ON) 

p2  =  j ointasseme . instances [' adhinstance-1-2 ' ] 

y  =  -adh  1  breadth/2.0  +  adh  2  thick  +  clip  breadth  +  base  thick 
z  =  web  thick/2.0  +  adh  1  thick 
p2 . translate (vector=(0.0,y,-z) ) 

j ointasseme . DatumPointByCoordinate (coords= ( 0 . 0 ,  0.0,  0.0)) 

## - 

p2  =  j ointmodel . parts [' Clip-12 ' ] 
jointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' clipinstance-1-2 ' ,  part  =  p2, 

dependent  =  ON) 

p2  =  j ointasseme . instances [' clipinstance-1-2 ' ] 
x,y,  z  =  0,  clip__breadth,  0.0 

p2 . rotateAboutAxis (axisPoint= ( 0 ,  0,  0.0),  axisDirection= (x, y, z ) ,  angle=- 
90.0) 

x,y  =  adh  2  length/2 . 0 , clip  breadth+base  thick+adh  2^thick 
z  =  adh  1  thick+web  thick/2 . 0+clip  len 
p2 . translate (vector=(x,y,-z) ) 
p2  =  j ointmodel . parts [' Clip-22 ' ] 
jointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  ' clipinstance-2-2 ' ,  part  =  p2, 

dependent  =  ON) 

p2  =  j ointasseme . instances [' clipinstance-2-2 ' ] 
x,y,  z  =  0,  clip__breadth,  0.0 

p2 . rotateAboutAxis (axisPoint= (0,  0,  0.0),  axisDirection= (x, y, z ) ,  angle=- 
90.0) 

x,y  =  adh  2  length/2 . 0 , clip  breadth+base  thick+adh  2^thick 
z  =  adh  1  thick+web  thick/2 . 0+clip  len 
p2 . translate (vector=(x,y,-z) ) 
p2  =  j ointmodel . parts [' Clip-32 ' ] 
jointasseme  =  j ointmodel . rootAssembly 
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base  insta 


=  j ointasseme . Instance (name  =  ' clipinstance-3-2 ' ,  part  =  p2, 

dependent  =  ON) 
p2  =  j ointasseme . instances [' clipinstance-3-2 ' ] 
x,y, z  =  0,  clip_breadth,  0.0 

p2 . rotateAboutAxis (axisPoint= ( 0 ,  0,  0.0),  axisDirection= (x, y, z ) ,  angle=- 
90.0) 

x,y  =  adh  2  length/2 . 0 , clip  breadth+base  thick+adh^2^thick 
z  =  adh  1  thick+web  thick/2 . 0+clip  len 
p2 . translate (vector=(x,y,-z) ) 

##  defect  -  1  instances  translate 
##  clip  defects 

p2  =  j ointmodel . parts [' defect_l ' ] 
j ointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  'defect-1-1',  part  =  p2, 

dependent  =  ON) 

p2  =  j ointasseme . instances [' defect-1-1 '  ] 
z  =  web  thick/2.0 

y  =  bl  +  base  thick  +  clip  thick  -  Lsb/2.0 
p2 . translate (vector=(0.0,y,  z)  ) 
p2  =  j ointmodel . parts [' defect_2 ' ] 
j ointasseme  =  j ointmodel . rootAssembly 

base  insta  =  j ointasseme . Instance (name  =  'defect-1-2',  part  =  p2, 

dependent  =  ON) 

p2  =  j ointasseme . instances [' defect-1-2  '  ] 
z  =  web  thick/2.0 

y  =  bl  +  base  thick  +  clip  thick  -  Lsb/2.0 
p2 . translate (vector= (2*defect_2a, y,  z) ) 

##  hiding  the  datum  planes.,  not  supressing 

session . viewports [ ' Viewport :  1 ' ]  . setValues (displayedOb j  ect= j  ointasseme) 
session . viewports [ ' Viewport : 

1 ' ] . as semblyDi splay . geometryOptions . setValues ( 
datumPlanes=OFF) 

## - 

def  j oint_tie_constraints ( )  : 

j ointasseme  =  j ointmodel . rootAssembly 
p2  =  j ointasseme . instances [' baseinstance ' ] 
f  =  p2 . faces 
xm  =  0.0 

zm  =  web  thick/2.0  +  adh  1  thick  +  (clip  thick  +  clip  radi  + 
clip_len) /2 . 0 

ym  =  base  thick 

#  first  base  adhesive  (on  left  in  isometric  view)  and  base  plate 

si  =  f .  f indAt ( (xm, ym, zm) , ) 
sllin  =  si. index 

regionl=regionToolset . Region ( side 1 Face s=f [ si lin : si lin+1 ] ) 
p3  =  j ointasseme . instances [' adhinstance-2-1 ' ] 
f2  =  p3 . faces 

s2  =  f2  .  f indAt  (  (xm,  ym,  zm)  ,  ) 
sl2in  =  s2. index 

region2=regionToolset . Region ( sidelFaces=f 2 [sl2in:sl2in+l] ) 
j  ointmodel . Tie (name= ' Constraint-1 ' , master=regionl ,  slave=region2 , 
positionToleranceMethod=COMPUTED,  adj  ust=ON, 
tieRotations=ON,  thickness=ON) 

#  second  base  adhesive  (on  right  in  isometric  view)  and  base  plate 

s3  =  f . f indAt ( (xm, ym, -zm) , ) 
sllin  =  s3. index 

regionl=regionToolset . Region ( side 1 Face s=f [ si lin : si lin+1 ] ) 
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p4  =  j ointasseme . instances [' adhinstance-2-2  '  ] 
f3  =  p4. faces 

s3  =  f 3 . f indAt ( (xm, ym, -zm) , ) 
sl3in  =  s3. index 

region2=regionToolset . Region ( sidelFaces=f 3 [sl3in:sl3in+l]  ) 
j  ointmodel . Tie (name= ' Constraint-2 ' , master=regionl ,  slave=region2  , 
positionToleranceMethod=COMPUTED,  adj  ust=ON, 
tieRotations=ON,  thickness=ON) 

#  first  adhesive  and  second  clip 

xs  =  0.0 

ys  =  base  thick+adh  2  thick 
zs  =  zm 

p5  =  j ointasseme . instances [' clipinstance-3-1 '  ] 
f5  =  p5. faces 

s5  =  f 5 . f indAt ( (xs ,  ys,  zs) , ) 
sl5in  =  s5. index 

regionl  =  regionToolset . Region ( sidelFaces=f 5 [ sl5in : sl5in+l ] ) 
s6  =  f 2 . f indAt ( (xs ,  ys,  zs),) 
sl6in  =  s6. index 

region2  =  regionToolset . Region ( sidelFaces=f 2 [ si 6in : si 6in+l ] ) 
j  ointmodel . Tie (name= ' Constraint-3 ' , master=regionl ,  slave=region2 , 
positionToleranceMethod=COMPUTED,  adj  ust=ON, 
tieRotations=ON,  thickness=ON) 

#  second  adhesive  and  second  clip 

p7  =  j ointasseme . instances [' clipinstance-3-2  '  ] 
f 7  =  p7 . faces 

s7  =  f 7 . f indAt ( (xs ,  ys,  -zs),) 
sl7in  =  s7. index 

regionl  =  regionToolset . Region ( sidelFaces=f 7 [ sl7in : sl7in+l ] ) 
s6  =  f 3 . f indAt ( (xs ,  ys,  -zs) , ) 
sl6in  =  s6. index 

region2  =  regionToolset . Region ( sidelFaces=f 3 [ si 6in : si 6in+l ] ) 
j  ointmodel . Tie (name= ' Constraint-4 ' , master=regionl ,  slave=region2  , 
positionToleranceMethod=COMPUTED,  adj  ust=ON, 
tieRotations=ON,  thickness=ON) 

#  left  clip  and  top  left  adhesive 

p5  =  j ointasseme . instances [' clipinstance-1-1 '  ] 
f5  =  p5. faces 
xsm  =  0.0 

ysm  =  base  thick  +  adh  2  thick  +  (clip  radi  +  clip  thick  + 
clip_breadth) /2 . 0 

zsm  =  web  thick/2.0  +  adh  1  thick 
s8  =  f 5 . f indAt ( (xsm,  ysm,  zsm),) 
sl8in  =  s8. index 

region2  =  regionToolset . Region ( sidelFaces=f 5 [ si 8in : si 8in+l ] ) 
p9  =  j ointasseme . instances [' adhinstance-1-1 '  ] 
f9  =  p9. faces 

s9  =  f 9 . f indAt ( (xsm,  ysm,  zsm),) 
sl9in  =  s9. index 

regionl  =  regionToolset . Region ( sidelFaces=f 9 [ si 9in : si 9in+l ] ) 
j  ointmodel . Tie (name= ' Constraint-5 ' , master=region2 ,  slave=regionl , 
positionToleranceMethod=COMPUTED,  adj  ust=ON, 
tieRotations=ON,  thickness=ON) 

#  right  clip  and  top  right  adhesive 

p7  =  j ointasseme . instances [' clipinstance-1-2 ' ] 
f 7  =  p7 . faces 

slO  =  f 7 . f indAt ( (xsm,  ysm,  -zsm),) 
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s20in  =  slO. index 

region2  =  regionToolset . Region ( sidelFaces=f 7 [ s2  0in : s2  0in+l ]  ) 
pll  =  j ointasseme . instances [' adhinstance-1-2 ' ] 
f 1 1  =  pll. faces 

sll  =  f 1 1 . f indAt ( (xsm,  ysm,  -zsm) , ) 
s21in  =  sll. index 

regionl  =  regionToolset . Region ( sidelFaces=f 1 1 [ s2 lin : s2 lin+1 ] ) 
j  ointmodel . Tie (name= ' Constraint-6 ' , master=region2 ,  slave=regionl , 
positionToleranceMethod=COMPUTED,  adj  ust=ON, 
tieRotations=ON,  thickness=ON) 

#  top  left  adhesive  and  webplate 

xms  =  0.0 

yms  =  base  thick  +  adh  2  thick  +  (clip  radi  +  clip  thick  + 
clip_breadth) /2 . 0 

zms  =  web  thick/2.0 

fl2  =  j ointasseme . instances [' webinstance ']• faces 
sl2  =  f 12 . f indAt ( (xms ,  yms,  zms),) 
s22in  =  sl2. index 

regionl  =  regionToolset . Region ( sidelFaces=f 12 [ s22in : s22in+l ] ) 
sl3  =  f 9 . f indAt ( (xms,  yms,  zms),) 
s23in  =  sl3. index 

region2  =  regionToolset . Region ( sidelFaces=f 9 [ s23in : s23in+l ] ) 
j  ointmodel . Tie (name= ' Constraint-7 ' , master=regionl ,  slave=region2  , 
positionToleranceMethod=COMPUTED,  adj  ust=0N, 
tieRotations=ON,  thickness=ON) 

#  top  right  adhesive  and  webplate 

sl4  =  f 12 . f indAt ( (xms ,  yms,  -zms),) 
s24in  =  sl4. index 

regionl  =  regionToolset . Region ( sidelFaces=f 12 [ s24in : s24in+l ] ) 
sl5  =  f 1 1 . f indAt ( (xms ,  yms,  -zms),) 
s25in  =  sl5. index 

region2  =  regionToolset . Region ( sidelFaces=f 1 1 [ s25in : s25in+l ] ) 
j  ointmodel . Tie (name= ' Constraint-8 ' , master=regionl ,  slave=region2 , 
positionToleranceMethod=COMPUTED,  adj  ust=0N, 
tieRotations=ON,  thickness=ON) 

##  aluminum  layer  and  weplate 
xms  =  web  length/4.0 
yms  =  web  length/2.0 
zms  =  -web  thick/2.0 

fl2  =  j ointasseme . instances [' webinstance ']• faces 
sl2  =  f 12 . f indAt ( (xms ,  yms,  zms),) 
s22in  =  sl2. index 

regionl  =  regionToolset . Region ( sidelFaces=f 12 [ s22in : s22in+l ]  ) 
f9a  =  j ointasseme . instances [' Lshapeinstance ']• faces 
sl3  =  f 9a. f indAt ( (xms,  yms,  zms),) 
s23in  =  sl3. index 

region2  =  regionToolset . Region ( sidelFaces=f 9a [ s23in : s23in+l ] ) 
j  ointmodel .Tie (name= ' Constraint- 7 a ' , master=regionl ,  slave=region2 , 
positionToleranceMethod=COMPUTED,  adj  ust=ON, 
tieRotations=ON,  thickness=ON) 


def  joint  tie  constraint  2() : 

j ointasseme  =  j ointmodel . rootAssembly 

pi  =  j ointasseme . instances [' clipinstance-1-1 '  ] 

f 1  =  pi . faces 

p2  =  j ointasseme . instances [' clipinstance-2-1 ' ] 
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f 2  =  p2 . faces 


p3  =  j ointasseme . instances [' clipinstance-3-1 ' ] 
f3  =  p3. faces 

xml,  yml  =  0.0,  base  thick+adh  2  thick+clip  thick  ch/2.0 
zml  =  web  thick/2 . 0+adh  1  thick+clip  thick  ch+clip  radi  ch 
s2  =  f 2 . f indAt ( (xml ,  yml,  zml),) 
s2in  =  s2. index 

regionl  =  regionToolset . Region ( sidelFaces=f 2 [ s2in : s2in+l ] ) 

s3  =  f 3 . f indAt ( (xml ,  yml,  zml),) 
s3in  =  s3. index 

region2  =  regionToolset . Region ( sidelFaces=f 3 [ s3in : s3in+l ] ) 

j  ointmodel .Tie (name= ' Constraint- 12 ' , master=region2 ,  slave=regionl , 
positionToleranceMethod=COMPUTED,  adj  ust=ON, 
tieRotations=ON,  thickness=ON) 

xm2 ,  ym2  =  0.0,  base  thick+adh  2  thick+clip  radi  ch+clip  thick  ch 
zm2  =  web  thick/2.0  +  adh  1  thick+clip  thick  ch/2.0 
s2  =  f 2 . f indAt ( (xm2 ,  ym2  ,  zm2),) 
s2in  =  s2 . index 

regionl  =  regionToolset . Region ( sidelFaces=f 2 [ s2in : s2in+l ]  ) 
s3  =  f 1 . f indAt ( (xm2 ,  ym2 ,  zm2 ) , ) 
s3in  =  s3. index 

region2  =  regionToolset . Region ( sidelFaces=f 1 [ s3in : s3in+l ] ) 
j  ointmodel .Tie (name= ' Constraint- 14 ' , master=region2 ,  slave=regionl , 

positionToleranceMethod=COMPUTED,  adj  ust=0N, 
tieRotations=ON,  thickness=ON) 
pi  =  j ointasseme . instances [' clipinstance-1-2  '  ] 
f 1  =  pi . faces 

p2  =  j ointasseme . instances [' clipinstance-2-2 ' ] 
f 2  =  p2 . faces 

p3  =  j ointasseme . instances [' clipinstance-3-2 ' ] 
f3  =  p3 . faces 

xml,  yml  =  0.0,  base  thick+adh  2  thick+clip  thick/2.0 
zml  =  web  thick/2 . 0+adh  1  thick+clip  thick+clip  radi 
s2  =  f 2 . f indAt ( (xml ,  yml,  -zml),) 
s2in  =  s2. index 

regionl  =  regionToolset . Region ( sidelFaces=f 2 [ s2in : s2in+l ] ) 
s3  =  f 3 . f indAt ( (xml ,  yml,  -zml),) 
s3in  =  s3. index 

region2  =  regionToolset . Region ( sidelFaces=f 3 [ s3in : s3in+l ] ) 
j  ointmodel .Tie (name= ' Constraint- 15 ' , master=region2 ,  slave=regionl , 
positionToleranceMethod=COMPUTED,  adj  ust=0N, 
tieRotations=ON,  thickness=ON) 

xm2 ,  ym2  =  0.0,  base  thick+adh  2  thick+clip  radi+clip  thick 
zm2  =  web  thick/2.0  +  adh  1  thick+clip  thick/2.0 
s2  =  f 2 . f indAt ( (xm2 ,  ym2 ,  -zm2),) 
s2in  =  s2. index 

regionl  =  regionToolset . Region ( sidelFaces=f 2 [ s2in : s2in+l ] ) 
s3  =  f 1 . f indAt ( (xm2 ,  ym2 ,  -zm2),) 

s3in  =  s3. index 

region2  =  regionToolset . Region ( sidelFaces=f 1 [ s3in : s3in+l ] ) 
j  ointmodel .Tie (name= ' Constraint- 1 6 ' , master=region2 ,  slave=regionl , 
positionToleranceMethod=COMPUTED,  adj  ust=0N, 
tieRotations=ON,  thickness=ON) 

# - 
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def  defect_constraints ( )  : 

jointasseme  =  j ointmodel . rootAssembly 
p2  =  j ointasseme . instances [' defect-1-1 '  ] 
c,f  =  p2. cells,  p2. faces 
z  =  (web  thick/2.0) 

y  =  bl  +  base  thick  +  clip  thick  -  Lsb/2.0 

si  =  f . f indAt ( ( 0 . 0 , y, z ) , ) 

sllin  =  si. index 

side  =  f [sllin : sllin+1] 

region2  =  regionToolset . Region ( sidelFaces  =  side) 

p3  =  j ointasseme . instances [' webinstance ' ] 

c3,f3  =  p3. cells,  p3. faces 

s2  =  f 3 . f indAt ( ( 0 . 0 , y, z ) , ) 

s21in  =  s2. index 

side  =  f3 [s21in: s21in+l] 

regionl  =  regionToolset . Region ( sidelFaces  =  side) 

j  ointmodel .Tie (name= ' Constraint-22 ' , master=regionl ,  slave=region2 , 
positionToleranceMethod=COMPUTED,  adj  ust=ON, 
tieRotations=ON,  thickness=ON) 
p2  =  j ointasseme . instances [' defect-1-2  '  ] 
c, f  =  p2. cells,  p2. faces 
z  =  (web  thick/2.0) 

y  =  bl  +  base  thick  +  clip  thick  -  Lsb/2.0 
si  =  f . f indAt ( (2*defect_2a,  y,  z)  ,  ) 
sllin  =  si. index 
side  =  f [sllin : sllin+1] 

region2  =  regionToolset . Region ( sidelFaces  =  side) 

p3  =  j ointasseme . instances [' webinstance ' ] 

c3,f3  =  p3. cells,  p3. faces 

s2  =  f3 . findAt ( (2*defect_2a, y,  z)  ,  ) 

s21in  =  s2. index 

side  =  f3 [s21in: s21in+l] 

regionl  =  regionToolset . Region ( sidelFaces  =  side) 

j  ointmodel .Tie (name= ' Constraint-2  3 ' , master=regionl ,  slave=region2 , 
positionToleranceMethod=COMPUTED,  adj  ust=ON, 
tieRotations=ON,  thickness=ON) 

## - 

def  joint_step() : 

j  ointmodel . StaticS tep (name= ' Step-1  '  ,  previous= ' Initial ' ) 


def  joint_load() : 

jointasseme  =  j ointmodel . rootAssembly 

region  = ( j  ointasseme . instances [ ' webinstance ' ]  .cells , 

j  ointasseme . instances [ ' clipinstance-1-1 ' ]  .cells , 
j  ointasseme . instances [ ' clipinstance-2-1 ' ]  .cells , 
j  ointasseme . instances [ ' clipinstance-3-1 ' ]  .cells , 
j  ointasseme . instances [ ' clipinstance-1-2 ' ]  .cells , 
j  ointasseme . instances [ ' clipinstance-2-2 ' ]  .cells , 
j  ointasseme . instances [ ' clipinstance-3-2 ' ]  .cells , 
j  ointasseme . instances [ ' base instance ' ]  .cells , 
j  ointasseme . instances [ ' adhinstance-1-1 ' ]  .cells , 
j  ointasseme . instances [ ' adhinstance-1-2 ' ]  .cells , 
j  ointasseme . instances [ ' adhinstance-2-1 ' ]  .cells , 
j  ointasseme . instances [ ' adhinstance-2-2 ' ]  .cells , 
j  ointasseme . instances [ ' Lshape instance ' ]  .cells , 
j  ointasseme . instances ['defect-1-1']  .cells, 
j  ointasseme . instances ['defect-1-2']  .cells,) 
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mdb . models [ 'Joint  Model ' ] . Temperature (name= ' Field- 1 ' , 
createStepName= ' Step-1 '  , 

region=region,  crossSectionDistribution=CONSTANT_THROUGH_THICKNESS , 
magnitudes= (theta_temp,  )) 

# - 

## - 

def  joint_job()  : 

global  statuss 

joint job  =  mdb . Job (name= ' Joint_Job ' , model= j ointmodel ) 

# - 1 - 

from  abaqus  import  * 

from  abaqusConstants  import  * 

from  section  import* 

import  part 

import  regionToolset 

import  displayGroupMdbToolset  as  dgm 

import  material 

import  section 

import  sketch 

import  assembly 

import  step 

import  interaction 

import  load 

import  mesh 

import  visualization 

import  xyPlot 

import  displayGroupOdbToolset  as  dgo 
import  job 
import  math 

base_part ( ) 
base_mater ( ) 
j  oint_section ( ) 
j oint_sweeppaths () 

clip  partition ()  ##  if  the  parts  are  partitioned,  the  orientation  is  lost 

for  some  reason, 
j  oint_instance ( ) 
j oint_tie_constraints () 
joint  tie  constraint  2() 
defect_constraints () 
j  oint_step ( ) 
j  oint_load ( ) 
j  oint_j  ob ( ) 

print  'NOTE  THAT  THE  FOLLOWING  NEED  TO  BE  DONE  MANUALLY' 
print  '1.  ASSIGNING  CONTINUUM  SHELLS  FOR  THE  PARTS  IN  THE  MESH  MODULE' 
print  '2.  ASSIGNING  SWEEP  DIRECTIONS  FOR  THE  ADHESIVES,  DEFECTS,  AND  Ti 
LAYER ' 

print  '2.  MESHING  THE  INDIVIDUAL  PARTS' 
print  '3.  BOUNDARY  CONDITIONS  FOR  THE  MODEL' 
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